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Deformation  of  NiAl  single  crystals  was  studied  using  finite  element  analysis  to 
investigate  the  modes  of  localized  deformation.  Constitutive  parameters  and  hardening 
characteristics  of  the  active  slip  systems  were  estimated  by  comparing  numerical 
simulation  results  with  experimental  results.  Deformation  of  tensile  specimens  of  NiAl 
single  crystal  was  simulated  when  loaded  along  different  crystal  orientations  to 
understand  the  deformation  mechanism  that  results  in  various  localized  modes  of 
deformation.  In  particular,  the  formation  of  shear  bands  and  kink  bands  was  studied  and 
the  material  and  geometric  characteristics  that  influence  the  formation  of  such 
localization  were  investigated. 

Hardening  characteristics  of  NiAl  single  erystals  were  studied  using  the  finite 
element  method.  NiAl  single  crystals  show  significant  hardening  at  large  strain 
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when  deformed  along  the  [557]  and  [110]  orientations.  Two-dimensional  simulation  of 

deformation  along  the  [557]  orientation  matched  well  with  experimental  results.  A three- 
dimensional  finite  element  model  is  required  for  simulating  deformation  along  the  [110] 
orientation  since  secondary  slip  systems  are  also  activated.  Four  possible  deformation 
cases  were  simulated  to  observe  the  effect  of  the  secondary  slip  system’s  activation 
during  deformation  along  the  [110]  orientation.  The  simulated  load  vs.  elongation  curves 
were  compared  with  experimental  results.  The  simulations  proved  the  importance  of 
secondary  system’s  activation  in  predicting  the  hardening  behavior  of  NiAl  single 
crystals. 

In  addition,  various  hardening  laws  that  have  been  proposed  for  single  crystals  were 
compared  by  simulating  deformation  of  FCC  single  crystals  using  3D  FEM  models. 
These  hardening  laws  were  used  in  FEM  simulations  to  compare  their  ability  to  predict 
the  three  stages  of  deformation  observed  in  FCC  single  crystals.  Bassani's  hardening 
model  and  a modified  version  of  Asaro's  hardening  model  were  able  to  predict  stages  1, 
II,  and  III. 
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CHAPTER  1 
INTRODUCTION 

Objective  of  the  Study 

This  research  is  aimed  at  understanding  the  deformation  process  and  the  mechanical 
properties  of  single  crystals  using  the  finite  element  analysis.  Most  of  the  studies 
presented  here  are  focused  on  the  following  subjects. 

(i)  To  understand  the  low  ductility  of  NiAl  single  crystals,  it  is  desirable  to 
understand  the  deformation  mechanism  responsible  for  its  mechanical 
behavior  over  a broad  range  of  temperatures.  Localization  phenomena  such 
as  shear  bands  and  kink  bands  are  investigated  to  explore  the  mechanism  of 
flow  localization. 

(ii)  Effect  of  rate  sensitivity  and  hardening  parameter  on  the  localization 
phenomena. 

(iii)  To  investigate  whether  two-dimensional  simulation  along  the  [557] 
orientation  can  be  matched  with  the  experimental  results.  To  estimate 
hardening  parameters  such  as  saturated  critical  resolved  shear  stress  and 
initial  hardening  rate  by  comparing  the  simulation  results  with  experimental 
results.  To  determine  if  three-dimensional  finite  element  model  is  required 
for  simulating  deformation  along  the  [110]  orientation  since  secondary  slip 
systems  are  also  activated. 
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(iv)  To  modify  hardening  law  if  necessary  based  on  the  experimental  results  on 
the  NiAl  single  crystals  and  to  use  a three-dimensional  finite  element  model 
to  test  the  modified  hardening  law. 

(v)  To  study  the  hardening  characteristics  in  single  crystals  based  on  the 
hardening  models  of  Asaro  (1983),  Weng  (1987)  and  Bassani  and  Wu  (1991) 
using  three-dimensional  finite  element  model. 

Concepts  of  Single  Crystals 

The  discovery  of  diffraction  of  x-rays  stimulated  fundamental  study  on  the  structure 
of  metallic  crystals.  By  examining  the  inside  of  metals,  the  most  fundamental  behavior  of 
the  metals  could  be  revealed.  Metals  are  composed  of  atoms  arranged  in  specific 
geometric  lattices.  Most  of  the  study  on  the  atomic  structure  and  the  plastic  deformation 
of  metals  has  been  performed  with  single  crystal  specimens  due  to  the  complexity  caused 
by  grain  boundary  and  the  constraints  imposed  by  neighboring  grains  and  second-phase 
particles. 

The  millions  of  atoms  in  a crystal  are  arranged  in  a pattern  that  is  repeated 
periodically.  The  atoms  in  a crystal  can  be  represented  by  points  in  space.  The 
arrangement  pattern  of  atoms  in  crystalline  metals  is  called  a crystal  lattice  structure. 

The  periodic  nature  of  a crystal  lattice  makes  it  possible  to  use  the  smallest  crystal 
unit  known  as  the  elementary  cell  to  describe  the  lattice  structure.  The  most  elementary 
crystal  structure  is  the  simple  cubic  lattice.  Three  mutually  perpendicular  axes  are 
arbitrarily  placed  at  one  of  the  comers  of  the  cube.  Crystallographic  planes  and  directions 
with  respect  to  the  axes  in  the  cubic  crystal  are  designated  by  Miller  indices.  A 
crystallographic  plane  can  be  specified  by  using  the  length  of  its  intercepts  on  the  three 
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axes,  measured  from  the  origin  of  the  coordinate  axes.  To  simplify  the  crystallographic 
formulas,  the  reciprocals  of  these  intercepts  are  used.  The  reciprocals  are  reduced  into  the 
smallest  integers  by  dividing  with  the  largest  common  factor  to  give  the  Miller  indices  of 
the  plane.  Crystallographic  directions  are  indicated  by  the  vector  components  of  the 
direction  resolved  along  each  of  the  coordinate  axes  and  reduced  to  the  smallest  integers. 

Many  of  the  common  metals  have  either  a body-centered  cubic  (BCC)  or  face- 
centered  eubic  (FCC)  crystal  structure.  A BCC  crystal  structure  has  a pattern  of  atoms 
that  are  located  at  each  comer  and  at  the  center  of  a cube.  An  FCC  crystal  structure  has  a 
pattern  of  atoms  that  are  located  at  each  comer  and  at  the  center  of  the  face  of  each  cube. 

The  third  common  metallic  crystal  stmcture  is  the  hexagonal  close-packed  (HCP) 
stmcture.  The  Miller-Bravais  system  with  four  indices  is  used  to  represent 
crystallographic  planes  and  directions  in  the  HCP  stmcture.  Four  axes  are  used  to  specify 
HCP  lattice  stmcture.  Three  axes  are  120°  apart  in  the  basal  plane,  and  the  vertical  axis  is 
normal  to  the  basal  plane. 

NiAl  has  a B2  type  ordered  crystal  stmcture  similar  to  body  centered  cubic  (BCC) 
crystals.  A cubic  lattice  with  nickel  atoms  at  each  comer  of  the  cell  and  a neighboring 
cubic  lattice  with  aluminum  atoms  at  each  comer  of  the  cell  interpenetrate  each  other  as 
in  figure  1.  Mechanical  properties  of  NiAl  single  crystals  vary  with  respect  to  the 
orientation  of  crystal  lattice.  Plastic  deformation  in  NiAl  occurs  predominantly  due  to  slip 
in  the  <001  > directions  along  either  {110}  or  {100}  planes  when  loaded  along  non- 
<00 1>  direction  (or  soft  orientations).  NiAl  crystal  subjected  to  loading  along  the  <00 1> 
direction  (hard  orientation)  shows  high  flow  stress  at  low  temperatures  and  enhanced 
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creep  strength  at  elevated  temperatures.  In  this  orientation,  deformation  occurs  by  non- 
<00 1>  dislocation. 


NiAl  has  gained  much  attention  as  a potential  structural  material  due  to  its  desirable 
material  characteristics  such  as  high  melting  point,  low  density,  good  oxidation  resistance 
and  excellent  mechanical  properties  at  high  temperatures  including  hardness,  toughness, 
thermal  stability  and  ductility.  It  has  been  considered  a possible  alternative  to  nickel- 
based  super  alloys  for  building  turbine  blades  where  due  to  lower  weight  and  higher 
operating  temperatures  it  is  expected  to  provide  increased  engine  thermodynamic 
efficiency.  To  find  application  as  a commercial  structural  material,  it  should  have 
desirable  structural  properties  over  a range  of  working  temperature.  However,  NiAl  has 
low  ductility  and  poor  fracture  toughness  at  ambient  temperatures.  The  tensile  plastic 
strain  before  fracture  at  room  temperature  is  typically  0.5-2. 5%  (Lahrman  et  al.,  1991; 
Miracle,  1993).  To  understand  its  low  ductility,  it  is  desirable  to  understand  the 
deformation  mechanism  responsible  for  its  mechanical  behavior  over  a broad  range  of 


# : Ni  atom 
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Figure  1.  NiAl  single  crystal  structure 


Deformation  of  NiAl  Single  Crystals 
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temperatures.  Many  modes  of  nonuniform  deformation  such  as  necking,  localized  shear, 
kinking  etc.  have  been  observed  in  NiAl  single  crystals.  These  localized  deformations 
contribute  significantly  to  the  total  plastic  strain  and  eventual  failure  (Miracle,  1993). 
Significant  tensile  ductility  is  obtained  only  at  and  above  473  K (Wasilewski  et  al.,  1967, 
Lahrman  et  al.,  1991).  Therefore,  many  approaches  to  improve  the  ambient  temperature 
material  properties  of  NiAl  have  been  investigated  (Darolia,  1991;  Darolia  et  al.,  1992; 
Shrivastava  and  Ebrahimi,  1997).  A detailed  survey  of  literature  and  a critical  review  of 
the  physical  and  mechanical  properties  of  NiAl  have  been  presented  by  Miracle  (1993). 

Most  ductile  single  crystals  (Chang  and  Asaro,  1980,  Peirce  et  al.,  1982)  exhibit 
localized  deformation  modes  when  subjected  to  a large  plastic  deformation  process. 
Understanding  the  causes  of  localized  deformation  is  of  great  importance  because  such 
nonuniform  deformation  creates  voids  or  damages  on  the  surface  that  eventually  lead  to 
initiation  of  fracture.  In  single  crystals  of  NiAl,  significant  lattice  rotation  is  observed 
especially  when  deformation  occurs  by  slip  in  a single  slip  system.  These  lattice  rotations 
can  result  in  orientation  or  geometric  softening  that  promotes  various  forms  of  localized 
deformation.  Common  forms  of  localization  observed  in  single  crystals  are  necking, 
shear  localization  and  kink  bands.  Macroscopic  shear  bands  have  not  been  observed 
experimentally  in  NiAl;  however,  it  is  possible  that  microscopic  shear  localization  may 
be  responsible  for  stress  concentrations  and  crack  initiation.  Kink  bands  have  been 
observed  in  NiAl  single  crystals  subjected  to  compressive  loads  along  the  orientations 
very  close  to  the  hard  orientation  (Fraser  et  al.,  1973a,  1973b). 

Asaro  (1983)  has  reviewed  the  development  and  the  theoretical  basis  of  crystal 
plasticity.  These  theoretical  formulations  have  since  been  implemented  using  the  finite 
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element  method  to  simulate  deformation  and  to  prediet  and  study  non-homogeneous 
deformation  in  single  crystals.  Most  of  the  past  studies  have  used  these  methods  to 
simulate  deformation  in  FCC  (Peirce  et  al.,  1983)  and  BCC  single  crystals  (Deve  et  al., 
1988).  In  this  study,  we  have  investigated  various  modes  of  localized  and  diffused 
deformation  observed  in  NiAl  and  studied  the  role  of  various  parameters  such  as  lattice 
orientation,  rate  sensitivity,  latent  hardening  ratio  etc.  in  promoting  these  modes  of 
deformation. 


Hardening  Characteristics  of  Single  Crystals 

Finding  an  appropriate  hardening  description  for  single  crystals  is  a crucial  step  in 
the  study  of  the  deformation  process  of  materials.  It  is  difficult  to  identify  the  reality  of 
behavior  in  terms  of  micro-mechanics  of  single  crystals.  Especially,  in  case  of  multi  slip, 
description  of  hardening  of  a single  crystal  becomes  significantly  more  complicated  than 
single  slip.  We  need  to  include  not  only  hardening  of  slip  systems  itself,  so  called  active 
slip  hardening,  but  also  hardening  by  other  slip  systems,  so  called  latent  hardening. 

From  the  early  1900s  several  hardening  laws  were  proposed  to  explain  the 
deformation  process  on  single  crystals.  Based  on  his  experimental  work  on  aluminum, 
Taylor  (1934)  proposed  the  so  called  isotropic  hardening  law  that  shows  the  same  amount 
of  constant  hardening  for  all  slip  systems.  Hardening  of  slip  system  is  coupled  with  other 
slip  system.  This  isotropic  hardening  law  can  not  predict  the  higher  latent  hardening. 

Nakada  and  Keh  (1966)  suggested  a modified  isotropic  hardening  law  to  explain  the 
higher  latent  hardening  rate  based  on  their  experiment  on  iron.  They  pointed  out  that  iron 
does  not  slip  on  one  distinct  slip  plane,  so  one  carmot  classify  the  dislocation  interactions 
according  to  their  slip  systems  like  FCC  single  crystals.  Higher  latent  hardening  was 
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explained  as  follows.  They  used  two  constant  parameters.  For  primary  and  coplanar  slip 
system  a lower  hardening  parameter  was  assumed  and  for  other  slip  systems  higher  a 
hardening  parameter  was  used. 

Asaro  (1983)  adopted  a hardening  law  that  contains  a latent  hardening  effect  by 
using  the  latent  hardening  parameter  q,  which  was  used  by  Hutchinson  (1970).  Our 
previous  papers  (Yang  et  al.,  1997;  Yang  and  Kumar,  1997)  used  this  law  successfully  in 
the  case  of  an  ideally  plastic  hardening  case.  However,  higher  hardening  at  large  strain 
was  not  accomplished  by  using  this  law. 

Weng  (1987)  proposed  a hardening  theory  called  anisotropic  hardening.  He  used 
relative  angles  of  slip  systems  for  his  latent  hardening  formulations.  He  explained  that  a 
strong  latent  hardening,  a weak  latent  hardening  and  Bauschinger  effect  can  be  described 
by  the  measure  of  relative  orientation  of  slip  systems. 

Bassani  and  co-workers  (Wu  et  al.,  1991;  Bassani  and  Wu,  1991;  Bassani,  1994) 
proposed  a hardening  law  in  FCC  crystals  based  on  the  dislocation  interactions  between 
slip  systems  in  the  time  independent  frame.  They  tried  to  explain  the  latent  hardening 
phenomena  through  their  experiment  using  computer  data  acquisition  on  copper  single 
crystal  which  is  different  from  the  back  extrapolation  method  conventionally  used  by 
many  authors  (Kocks,  1964).  They  suggested  latent  hardening  may  be  lower  than  self- 
hardening of  the  active  slip  systems.  This  result  is  quite  different  from  the  result  obtained 
by  other  authors.  They  explained  in  their  hardening  law  that  the  conventionally  used 
higher  latent  hardening  is  actually  strong  self-hardening.  So,  the  off-diagonal  terms  in  the 
hardening  matrix  [hap]  are  less  than  the  active-hardening  terms  (diagonal  terms). 
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In  this  study  we  have  proposed  a hardening  model  to  explain  the  extremely  high 
hardening  trends  after  necking  at  a large  strain  regime  in  NiAl  single  crystals.  Our  two- 
dimensional  analysis  is  extended  to  the  three-dimensional  finite  element  analysis  to  study 
the  multi-slip  cases  in  the  simulation.  Our  previously  used  kinematics  relations  in  single 
crystals  of  the  2-dimensional  case  can  be  extended  to  this  study  without  difficulties. 

Summary  of  the  Study 

In  chapter  1 of  this  thesis,  the  most  basic  concepts  of  crystals  such  as  structures  of 
single  crystals  and  slip  systems  are  explained.  The  deformation  processes  of  NiAl  single 
crystals  are  described  also.  Microscopic  shear  band  are  generally  observed  in  [110] 
orientation.  Localized  deformations  such  as  shear  band  and  kink  band  may  facilitate  the 
initiation  of  micro  voids  and  eventually  lead  to  fracture  at  a low  temperature.  Hardening 
laws  of  single  crystals  are  reviewed  briefly.  Describing  the  hardening  properties  precisely 
is  not  an  easy  task.  Dislocation  interaction  and  internal  dislocation  densities  are  main 
contributors  for  the  hardening  description  from  a microscopic  viewpoint.  Most  of  the 
available  models  describe  hardening  of  single  crystals  by  slip  interactions  from  a 
macroscopic  viewpoint.  Latent  hardening  is  used  to  represent  high  hardening  due  to  the 
activation  of  other  slip  systems. 

In  chapter  2 of  this  thesis,  the  kinematic  relations  and  elastic-plastic  constitutive 
equations  of  single  crystals  are  discussed.  The  slip  mechanism  of  single  crystals  is 
explained.  A rate-dependent  constitutive  model  for  single  crystals  is  implemented  into 
ABAQUS,  a commercial  finite  element  code  that  is  capable  of  modeling  large 
deformation  and  large  strains.  The  rate  dependent  constitutive  equation  is  integrated 
using  the  forward  gradient  method  which  has  been  found  to  be  effective  (Peirce  et  al.. 
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1983;  Wenner,  1993)  provided  sufficiently  small  time-steps  are  used  for  the  time 
integration.  For  the  simulation  of  the  localization  (shear  band  and  kink  band),  we  used 
incompatible  elements  (Simo  and  Rifai,  1990)  available  in  ABAQUS.  These  elements 
have  been  found  to  be  particularly  suitable  for  modeling  the  incompressible  behavior  and 
for  modeling  strain  localization  (Simo  and  Armero,  1992). 

In  chapter  3 of  this  thesis,  previous  studies  on  the  localization  phenomena  and 
hardening  characteristics  of  single  crystals  are  reviewed.  Various  causes  of  shear 
localization  are  discussed.  Latent  hardening  tests  on  the  FCC  crystal  such  as  copper  and 
aluminum  or  BCC  such  as  a-iron  have  been  performed  by  many  authors.  Latent 
hardening  is  in  general  greater  than  self-hardening. 

In  chapter  4 of  this  thesis,  simulations  in  the  rate  dependent  frame  to  understand 
localization  phenomena  in  NiAl  single  crystals  are  presented.  A schematic  diagram  of 
loading  orientation  is  given. 

Shear  localization  is  observed  when  the  loading  axis  was  a few  degrees  off  from  the 
[110]  orientation.  Initial  imperfections  control  the  initiation  points  of  localization. 
Material  properties  such  as  hardening  strain  rate  sensitivity  and  geometry  of  specimen 
play  an  important  role  in  the  formation  of  the  localized  band.  Low  hardening  and  low 
strain  rate  sensitivity  facilitate  localization.  Symmetric  orientation  without  misalignment 
in  the  [110]  loading  direction  does  not  show  the  macroscopic  localization  due  to  the  no 
rotation  of  the  crystal  lattice.  Lattice  rotations  cause  geometrical  softening  and  a localized 
band  occurs. 

Kink  band  is  observed  in  a compression  test  along  the  hard  orientation  of  NiAl  single 
crystals.  Loadings  along  the  axis,  5°  off  and  10°  off  from  the  hard  orientation,  are 
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simulated.  Both  double  slip  system  and  single  slip  systems  show  the  kink  band.  Lattice 
rotations  also  play  a role  in  the  formation  of  the  kink  band.  Geometric  softening  occurs 
due  to  lattice  rotation.  The  single  slip  case  experiences  more  lattice  rotation  than  the 
double  slip  case.  As  a result,  the  kink  band  can  be  seen  clearly  in  the  single  slip  case. 

In  chapter  5,  hardening  models  for  NiAl  single  crystals  are  proposed  and  simulations 
are  performed  to  confirm  our  modified  hardening  law.  Hardening  laws  for  single  crystal 
have  been  proposed  by  many  authors  based  on  experiment.  We  propose  a modified 
hardening  law  based  on  the  experimental  results  of  NiAl  single  crystals.  The  latent 
hardening  ratio  is  predicted  based  on  our  analytical  prediction  of  four  possible 
deformation  modes.  Simulation  results  are  compared  with  experimental  results.  Loading 
along  the  [110]  crystal  orientation  is  considered  for  simulation.  A schematic  diagram  of 
the  loading  orientation  is  presented.  Hardening  parameters  such  as  saturated  critical 
resolved  shear  stress,  initial  critical  resolved  shear  stress  and  initial  rate  of  hardening  are 

determined  by  comparing  the  experimental  results  in  the  [557]  orientation. 

In  chapter  6,  the  hardening  laws  proposed  by  other  authors  are  simulated  to  compare 
each  law  and  investigate  the  characteristics  of  each  formula  by  three-dimensional  finite 
element  analysis. 

In  chapter  7,  some  conclusions  and  recommendations  for  future  work  are  presented. 


CHAPTER  2 

FINITE  ELEMENT  MODELING  OF  SINGLE  CRYSTALS 

Constitutive  Model  for  Single  Crystals 

In  this  section,  we  present  a constitutive  model  for  the  elastic-plastic  behavior  of 
single  crystals.  The  formulation  used  here  is  based  on  the  well-established  rate  dependent 
model  for  single  crystals  (Peirce  et  al.,  1983;  Asaro,  1983;  Needleman  et  al.,  1985).  The 
following  section  clarifies  the  notations  and  details  of  the  constitutive  equation  that  was 
implemented  for  simulating  single  crystals. 

Kinematics  of  Crystalline  Deformation 

The  deformation  of  single  crystal  is  a complicated  problem  and  it  is  difficult  to 
include  all  the  possible  deformation  mechanisms  into  the  model  for  simulation.  For 
instance,  plastic  deformation  in  single  crystals  occurs  by  twinning  in  addition  to  the 
slipping  on  the  crystal  lattice  and  the  shape  of  the  crystal  lattice  is  actually  changed 
during  plastic  deformation.  However,  these  effects  on  the  plastic  deformation  of  single 
crystals  may  be  ignored  in  our  model.  Plastic  flow  of  crystals  is  described  as  slipping 
along  active  slip  systems  macroscopically  rather  than  by  dislocation  movement 
microscopically.  Deformation  in  the  single  crystals  may  be  described  by  the  following 
fundamental  assumptions.  First,  plastic  deformation  of  a single  crystal  is  produced  solely 
by  slips  through  the  crystal  lattice.  So,  we  only  consider  slipping  as  a moving  mechanism 
in  a single  crystal.  As  a second  assumption,  we  assume  that  elastic  stretching  and  rotation 


11 


12 


are  small.  The  third  assumption  is  that  the  crystal  lattice  retains  its  shape  and  orientation 
during  the  plastic  flow. 

The  undeformed  crystal  state  can  he  regarded  as  a reference  configuration  in  which  a 
material  point  is  described  by  a position  vector  X in  figure  2-1.  After  the  crystal  deforms 
plastically  and  elastically,  each  material  point  can  be  depicted  by  current  position  vector 
X.  The  difference  between  X and  x at  each  material  point  is  defined  as  displacement 
vector  u (see  figure  2-1). 

u = x-X  (2.1) 

The  current  position  of  material  point  vector  x with  respect  to  the  reference  configuration 
is  expressed  as  follows. 

X,  =X, +UCOS0,  X2  = Xj +usin0  (2.2) 

Using  transformation  between  the  lattice  coordinates  and  the  reference  coordinates,  the 
current  position  of  material  point  vector  x is  expressed  as  follows. 


Figure  2-1  Schematic  used  for  the  derivation  of 
the  plastic  deformation  gradient  F’’ 


X,  = X,  +y(-X,  sin0  + X2  cos  0)  cos 0 
X2  = Xj  -I-  y(-Xi  sin  0 -I-  Xj  cos  0)  sin  0 


(2.3) 
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Plastic  part  of  deformation  gradient  F^’  that  describes  the  current  configuration  is  given  by 
F’’  =ax/ax  = l + y(s<“^  (2.4) 

where  I is  the  2nd  order  identity  tensor. 

In  figure  2-2,  the  kinematics  of  single  crystals  is  described  schematically.  For 
describing  the  kinematics  of  single  crystals  it  is  convenient  to  decompose  the  deformation 
gradient  (F)  of  the  deformed  crystal  into  two  components  (Lee,  1969). 

Using  F*”  to  denote  the  plastic  part  of  the  deformation  gradient. 

dp  = FP-dX  (2.5) 

where  dp  is  the  corresponding  infinitesimal  line  element  after  deformation. 

The  lattice  and  material  deform  elastically  together  with  no  relative  movement  between 
the  material  particles  and  the  lattice.  This  elastic  deformation  is  described  by 

dx  = F*  • dp  (2.6) 

Inserting  equation  (2.5)  into  equation  (2.6)  gives  total  deformation  gradient  F. 

F = F‘-F'’  (2.7) 

The  elastic  part  of  deformation  gradient  F*  describes  the  elastic  stretching  and  rigid  body 
rotation  of  the  crystal  lattice  and  the  plastic  part  of  deformation  gradient  F’’  takes  part  in 
the  deformation  solely  by  plastic  shearing. 

A particular  slip  system,  a,  is  specified  by  the  vectors  (s^“\m‘“’),  where  is  the 

slip  direction  vector  and  gives  the  slip  plane  normal  vector.  The  vectors  and 
are  taken  to  be  orthonormal  in  the  undeformed  lattice.  According  to  the  preceding 
discussion,  it  is  obvious  that  this  deformation  and  rotation  are  caused  only  by  the  elastic 
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part  of  deformation  gradient  F*  including  rigid  body  rotation.  As  the  crystal  deforms,  the 
slip  direction  vector  convects  with  the  lattice  deformation  gradient  F*. 

Deformed  slip  direction  s*^“^  and  deformed  slip  plane  normal  vector  m**“'  are  defined  as 
follows  : 


II 

(2.8) 

= (F*)-’ 

(2.9) 

The  total  velocity  gradient  L in  the  current  configuration  can  be  decomposed  into  the 
rate  of  stretching  D and  the  rate  of  spin  Q and  the  rate  of  stretching  and  rate  of  spin  can 
be  decomposed  into  elastic  and  plastic  parts. 

L = D + Q=L*+L'’  (2.10) 

D + Q =(D* +Q*)  + (D'’ +Q'’)  (2.11) 
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where  L*  is  the  component  of  the  velocity  gradient  associated  with  the  elastic 
deformation  and  rotation  while  L**  is  the  velocity  gradient  due  to  plastic  shearing. 
Differentiating  F = F*  • F’’  with  respect  to  time  at  a fixed  material  point  gives  the 
following  expressions. 

L=F-F’'  = F*  -F*-'  +F*  -F”  -F”-'  -F*"'  (2.12) 

We  can  identify  the  elastic  and  plastic  parts  of  the  velocity  gradient  as  follows. 

L*  =D‘ +Q*  =F* -F*"'  (2.13) 

L”  = DP  + Q”  = F*  • F”  • F”-' • F*-'  (2.14) 

Since  plastic  deformation  occurs  solely  by  shear  along  the  slip  planes,  the  plastic  part  of 
the  velocity  gradient  can  be  written  as 

LP  =DP+QP  = tY^“>(s*<“^-m*<“>^)  (2.15) 

a=l 

where  is  the  rate  of  shearing  on  the  slip  system  a,  as  measured  relative  to  the  lattice. 
Finally  the  plastic  part  of  stretching  (symmetric)  and  the  spin  (skew-symmetric)  are  given 
by 

DP  =^y(“)  ,p(“)  (2.16) 

a=l 


a=l 


(2.17) 


where 


p(“)  =l(s(“)  +m^“^  -s<“^)  (2.18) 

\Y(a)  =l(s(“)  -m<“>  -s'”’) 


(2.19) 
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Constitutive  Law  for  Elastic-Plastic  Single  Crystals 

The  mathematical  representation  of  elastic-plastic  constitutive  equations  for  single 
crystals  using  the  kinematics  of  crystalline  deformation  studied  in  the  previous  part  is 
described  in  this  part.  The  rate  of  strain  energy  (per  unit  reference  volume)  is  written  as 


0 = a:D  = CT;(D‘ +DP)  (2.20) 

The  above  equation  can  be  rewritten  as  follows  using  equation  (2.13). 

6 = (F-'  •a-F*-''):(F*''  ■F*)  + a:D'’  (2.21) 

Then  introducing  the  second  Piola-Kirchhoff  stress  T and  the  Green  strain  E* 

T = F*"'  • a ■ F*-'"  (2.22) 

E*  =1(F*'' -F* -I)  (2.23) 


where  I is  the  identity  tensor.  The  existence  of  strain  energy  function  O*for  elastic 
response  requires 


T = 


acD* 


(2.24) 


Neglecting  any  effect  of  plastic  straining  on  elastic  moduli,  differentiating  equation 
(2.24)  gives 


DT 

Dt 


5E 


^ 5E  ^ 5t 


= C:E* 


C = C^ 


5E*' 


(2.25) 


(2.26) 


where  D(  )/Dt  is  the  nonobjective  material  derivative. 

Next,  from  equation  (2.13),  equation  (2.22)  and  equation  (2.23) 


17 


— = F*  • T • + F*  ■ — • F*^  + F*  • T • F*^ 

Dt  Dt 

DT 

= F*-(F*-'  •a-F‘-'^)-F*''+F*  • — ■F*"'  +F*-(F*‘'  ■a-F*-'^)-F*^ 


= (D*  +Q*)-ct  + F 


Dt 

* — •F*'' +a(D* -Q‘) 
Dt 


(2.27) 


Equation  (2.27)  can  be  rewritten  as 


— -Q*  - CT  + a-Q*  =F*  •—  F*^  +D*  - a + D*  -a 
Dt  Dt 


(2.28) 


DT 

F*  • • F*^  can  be  written  as  follows  using  equation  (2.24)  and  E*  = F*^  • D ■ F* 


, DT  .T  . . 

F F^  = C :D 

Dt 


(2.29) 


where C*  = F*  • F* -C • F*^  • F*^ , which  is  the  instantaneous  elastic  moduli  convected 
with  the  elastic  deformation  gradient,  permits  equation  (2.27)  to  be  rewritten  as 


(jv*  =^_Q’  .(5  + ct  Q*  =C*  :D‘  + D*  - a + CT-D* 
Dt 


(2.30) 


where  ct  is  the  Jaumann  rate  of  Kirchoff  stress  of  single  crystal  based  on  the  elastic  spin 
rate. 


The  equation  (2.30)  is  satisfactory  for  finite  as  well  as  infinitesimal  elastic 
deformation.  The  elastic  strains  are  generally  small  in  metal  plasticity.  So  the  stress 
magnitude  is  small  compared  to  the  magnitude  of  any  elastic  moduli  and  furthermore 
those  elastic  moduli  can  be  approximated  by  their  ground  state  values.  Under  these 
conditions,  6'^’  can  be  related  to  the  elastic  rate  of  stretching  (Hill  and  Rice,  1972). 

d^*=C*:D*  (2.31) 

The  Jaumann  stress  rate  of  Kirchoff  stress  a^*  with  respect  to  a coordinate  that  spins 


with  the  lattice  is  defined  as 


18 


=d-Q* -a  + a Q*  (2.32) 

where  o is  the  material  time  rate  of  the  Kirchoff  stress.  The  Jaumann  stress  rate  of  the 


Kirchoff  stress  that  spins  with  the  material  is  given  by 

CT'^=c-Q-a  + aQ  , (2.33) 

The  difference  between  these  two  expressions  is 

a^‘ -CT^  •B^“>  (2.34) 

a=l 

where  • a - a • W<“>  (2.35) 

By  using  equations  (2.16)  and  (2.31),  the  constitutive  equation  can  be  stated  as 

a^=C*  :D- (2.36) 

a=l 

where  R'“’  = C*  : + B'“>  (2.37) 


For  a strain  rate  dependent  material  of  the  single  crystal,  the  slip  rate  of  the  a-th  slip 
system  is  assumed  to  be  related  to  the  resolved  shear  stress  by  the  power  law  (Pan  and 
Rice,  1983) 


y(“)  = 


1 

H 

1 

- (“) 

L^c  J 

. 

-|(l/m)-l 


/ 


(2.38) 


where  m is  the  rate  sensitivity  parameter,  is  the  critical  resolved  shear  stress  for  the 
slip  system  a,  is  a reference  strain  rate  on  each  slip  system.  The  resolved  shear  stress 

on  the  slip  system  is  = s*“^‘  • a • m*“^* . The  shear  rate  in  each  slip  system  is  uniquely 
determined  by  power  law  equation  (2.38),  and  is  nonvanishing  as  long  as  the  resolved 

shear  stress  on  that  system  is  not  identically  zero.  The  critical  resolved  shear  stress 
for  each  slip  system  of  the  material  increases  with  plastic  deformation  due  to  work 
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hardening.  The  hardening  curve  needs  to  be  determined  for  each  possible  slip  system  so 
that  can  be  expressed  as  a function  of  the  plastic  shear  in  that  slip  system 

• However,  when  more  than  one  slip  system  is  active,  hardening  in  each 
slip  system  is  a cumulative  effect  of  slip  in  all  the  active  slip  systems.  For  a rate 

dependent  model,  the  rate  of  increase  of  the  function  has  therefore  been  specified  as 
(Peirce  et  al.,  1982) 


(a) 


(2.39) 


The  form  of  hardening  moduli  h„p  matrix  commonly  used  is  (Hutchinson,  1970) 


hap  =qh  + (l-q)h5„p  (2.40) 

Hardening  that  occurs  in  a slip  system  due  to  shear  in  another  slip  system  is  referred  to  as 
latent  hardening  as  opposed  to  self-hardening  which  occurs  due  to  self-activation.  The 
parameter  q is  the  ratio  of  latent  hardening  to  self-hardening.  The  hardening  rate,  h is  the 
rate  of  change  of  critical  resolved  shear  stress  with  shear  strain.  Three  types  of  hardening 
curve  were  used  in  our  implementation  to  model  hardening  in  single  crystals.  For 
materials  that  exhibit  very  small  strain  hardening,  the  hardening  rate  decreases  rapidly  to 
zero,  and  the  critical  resolved  shear  stress  reaches  a saturation  value  is.  The  hardening 
curve  Tc(y)  and  hardening  rate  h(y)  for  single  slip  in  such  materials  are  often  represented 
using  the  following  equations 


^c(y)=='To  + (^s-'to)tanh 


hpy 


and  h(y)  = hosech'‘ 


hpy 


(2.41) 


For  materials  that  exhibit  significant  hardening,  a power  law  equation  is  more  appropriate 
to  represent  the  hardening  behavior  (Peirce  et  al.,  1982).  The  hardening  curve  Xc(y)  and 
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hardening  rate  h(y)  are  given  below,  where  n is  the  hardening  exponent. 


+ll 

n 

and  h(y)  = ho 

vnxo  ^ 

(nto  7 

(2.42) 

The  following  formula  is  used  in  the  case  of  material  showing  hardening  at  large 
strain;  so  even  at  the  large  strain,  material  possesses  the  hardening  rate  hg. 


(y)  = "^0  + hj  + (t^s  - "^0 ) tanh 


f 


(hp  -h3)Y 


and 


h(y)  = h3  +(ho  -hjsech' 


(hp  -hjy 


(2.43) 


Deformation  In  Single  Crystals 

If  a single  crystal  specimen  is  pulled  in  a tension  test,  the  deformation  obtained  is 
neither  homogeneous  nor  isotropic.  Gliding  along  their  crystallographic  planes  moves 
some  portions  of  the  crystal  with  respect  to  each  other  whereas  regions  between 
consecutive  glide  planes  remain  unchanged.  The  extent  of  the  glide  amounts  to  0.1-1 
(pm)  and  the  distance  between  two  consecutive  glide  planes  is  several  microns  (Kovacs 
and  Zsoldos,  1973). 

Investigations  carried  out  on  a great  variety  of  materials  have  shown  that  those 
crystallographic  planes,  in  which  the  atoms  are  arranged  in  a close-packed  layer,  always 
act  as  glide  planes  and  that  within  these  planes  only  well  defined  glide  directions  exist. 
Thus,  for  example,  in  a hexagonal  single  crystal  the  glide  usually  takes  place  along  the 
(001)  basal  plane  in  the  direction  of  the  three  hexagonal  diameters. 

The  active  glide  plane  of  FCC  crystals  is  usually  one  of  the  {111}  planes  and  the 
glide  takes  place  in  the  <110>  directions.  Four  possible  glide  planes  and  three  possible 
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slip  directions  make  twelve  different  slip  systems.  Every  slip  system  has  an  equivalent 
glide  possibility.  The  active  glide  plane  of  bcc  crystals  may  be  usually  one  of  {110}, 
{112}  and  {123}  planes  and  the  glide  takes  place  in  the  <1 1 1>  directions.  However,  glide 
systems  are  not  unique  in  BCC  crystals. 

One  of  the  usual  methods  of  plastic  deformation  in  metals  is  slipping  which  occurs 
by  the  gliding  of  blocks  of  the  crystal  over  one  another  along  definite  crystallographic 
planes,  called  slip  planes.  Slip  along  a slip  plane  occurs  in  response  to  shear  stress  on  that 
plane.  Figure  2-3  is  a schematic  drawing  to  illustrate  the  slipping  mechanism  of  single 
crystals  when  the  crystals  are  loaded  in  a tensile  test.  Slip  in  a single  crystal  is  initiated 
when  the  resolved  shear  stress  on  some  slip  system  reaches  critical  value  Tc.  Resolved 
shear  stress  tr  on  the  slip  plane  to  the  slip  direction  can  be  described  as  follows. 

tr  =(P/A)  cosA,cos  a (2.44) 

where  P is  the  axial  loading  in  single  crystals,  A is  a cross-sectional  area  of  single  crystal, 
a is  the  angle  between  the  slip  plane  normal  direction  and  loading  direction,  and  A,  is  the 
angle  between  the  slip  direction  vector  and  loading  direction. 

Latent  hardening  effect  is  a crucial  factor  in  the  deformation  process  of  single 
crystals.  Under  the  assumption  initial  yield  stress  of  all  the  slip  systems  is  same, 
geometrical  conditions  will  completely  determine  the  activation  of  slip  systems. 
However,  experimental  results  do  not  advocate  this  assumption. 

The  tensile  test  is  performed  in  single  slip  orientation.  The  tensile  axis  reaches  the 
symmetric  borderlines  with  secondary  slip  systems.  Theoretically  the  tensile  axis  should 
not  pass  this  symmetric  line  and  stay  at  the  symmetric  point  between  two  slip  systems. 
However,  the  tensile  axis  actually  overshoots  the  symmetric  boundary  line  as  observed  in 
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the  experiment.  This  overshoot  phenomenon  implies  stronger  hardening  in  the  secondary 
slip  system.  This  phenomenon  is  called  latent  hardening.  Slip  systems  are  hardened  by 
slip  on  other  systems.  Because  of  strong  latent  hardening  effects,  the  tensile  axis 
overshoots  the  symmetric  boundary  line  and  secondary  slip  systems  need  a larger 
resolved  shear  stress  to  overcome  strong  latent  hardening. 

The  Solution  Procedure 

An  integration  procedure  for  rate  dependent  constitutive  formulas  is  explained  in  this 
section.  It  is  a generally  well  known  that  the  rate  dependent  constitutive  equations  of 
elastic-plastic  materials  are  mathematically  stiff  (Nagtegaal  et  al.,  1974).  To  overcome 
inherent  stiff  property  of  rate  sensitivity  constitutive  equations  and  use  efficient 
integration  algorithms,  numerous  integration  schemes  have  been  applied  in  the  area  of 
finite  element  analysis  of  elastic-plastic  material  (Simo  and  Taylor,  1985,  1986;  Moran  et 
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al.,  1990).  An  explicit  integration  procedure  obtains  the  solution  at  time  t+At  using  the 
equilibrium  conditions  at  time  t whereas  an  implicit  integration  procedure  obtains  the 
solution  at  time  t+At  using  the  equilibrium  conditions  at  time  t+At.  The  stability  of 
explicit  integration  formulas  is  reduced  so  that  the  number  of  time  steps  required  in  finite 
element  codes  becomes  excessive.  An  implicit  method  that  solves  nonlinear  equations 
iteratively  can  be  applied  to  obtain  stability  for  stiff  systems.  The  Newton-Raphson 
method  is  generally  used  for  solving  nonlinear  equations  by  iteration.  This  category 
includes  backward  Euler,  midpoint  rule  and  higher  order  backward  difference  formulas. 
Many  implicit  methods  yield  unconditional  stability,  at  the  several  iterations  per  time 
step. 

Intermediate  between  explicit  and  implicit  methods  are  forward  gradient  schemes,  in 
which  at  least  one  of  the  dependent  variables  is  expanded  about  the  current  time  in  a first 
order  of  Taylor  series.  The  result  is  a linear  equation  for  the  increment  in  the  appropriate 
variable,  and  this  method  might  be  categorized  as  semi-implicit.  Since  no  iteration  is 
necessary,  forward  gradient  methods  require  less  work  per  time  step  than  implicit 
integrators,  but,  in  general,  they  are  not  unconditionally  stable.  Hence,  they  require  more 
time  steps  for  a given  problem.  One  advantage  of  forward  gradient  methods  is  that  they 
fit  in  very  naturally  with  tangent  modulus  finite  element  formulations. 

A standard  forward  gradient  procedure  is  explained  and  applied  into  the  rate 
dependent  constitutive  equation  of  crystalline  in  this  section  (Peirce  et  al.,  1983). 

Suppose  that  all  state  variables  are  known  at  time  t and  we  need  to  obtain  them  at 
time  t+dt.  Changes  in  all  state  variables  during  time  increment  At  should  be  calculated. 
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During  this  time  period,  the  strain  rates  are  assumed  to  be  eonstant  variables.  Hence,  the 
strain  increments  from  t to  t+dt  are 

Ae  = sAt  (2.45) 

The  increment  in  effective  plastic  strain  Ay  is  taken  to  be 

Ay  = At[(l  - a)y,  + ay.,^J=  At[y,  + a(y,,^,  - y, )]  (2.46) 

where  the  parameter  a is  used  to  represent  the  degree  of  implicitness  of  the  time 
integration  scheme.  The  explicit  integration  scheme  is  represented  by  a=0,  and  0<a<l 
represents  the  implicit  integration  scheme.  The  function  replaced  by  the  first  order 

of  Taylor  series  about  time  t.  For  the  constitutive  equation  (2.38),  the  rate  of  resolved 
shear  strain  is  a function  of  resolved  shear  stress  and  critical  resolved  shear  stress. 


dy  dr.  ^ dg,  ^ 

YuAt  =y.  +^^At  + -^^At 


5t,  dt 


5g,  at 


(2.47) 


Application  of  this  formula  to  the  constitutive  formula  equation  (2.38)  will  lead  to  the 
following  formula. 


y|“lt  = sign(T<“^)/<“^ 


r(“) 


St 


(a) 


1 + 


m 


At^“^  Ag 


(a)  V 


_(a) 
V ‘ 


s; 


(a) 


where  At^“^  = x^,“^At  Ag‘“^  = g|“^At 


(2.48) 


Next,  we  calculate  the  resolved  shear  stress  x<“>  on  a slip  system.  For  slip  system  a, 

the  normal  to  the  slip  plane  is  m**“^  Therefore,  the  traction  vector  t^“’on  this  slip  plane 
is 

(2.49) 


where  a is  the  Cauchy  stress. 
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The  resolved  shear  stress  is  the  component  of  in  the  slip  direction  s*^“^ . 

x(“)  = s*^“^  • a ■ m*^“*  = a • (2.50) 

The  material  time  derivative  of  the  resolved  shear  stress  is  expressed  as  follows. 

t(“)  =a-P^“>+a-P^“>  (2.51) 

Using  the  co-rotational  rates  spin  with  the  lattice,  the  material  time  derivative  of  the 
resolved  shear  stress  is  expressed  as  follows. 

x(“)  =P^*(“)  ■CT  + p(“)a^‘  (2.52) 

where  P^*<“^  -(5  = 8'“^  -D* 

Finally,  the  material  time  derivative  of  the  resolved  shear  stress  is  expressed  as  follows. 

x'“>  = (c*  : P(“^  + )•  D*  = • D*  (2.53) 

The  final  form  of  the  material  time  derivative  of  the  resolved  shear  stress  is  substituted  to 
increment  of  resolved  shear  stress,  i.  e.  Ax  = x,  At 


Ax<“)  = R(“)  . DAt  - P/P>yf > At 

p=i 


(2.54) 


The  slip  resistance  g‘“Ms  taken  to  evolve  as  g^“^  I^iserting  of  hardening 

evolution  formula  into  Ag  = g(t)At  gives  the  following  formula  of  increment  of  slip 
resistance. 


Ag^“^  =X(^ap)tYf^sign(yf>)At 


(2.55) 


p=i 


Inserting  y,^^j  formula  and  y,  formula  into  equation  (2.46)  gives  an  estimate  for  the 


increment  of  resolved  shear  strain  as  follows.  ^ 

m 


[ Ax<“> 

Ag<“^l 

hi“> 

J 

(2.56) 


26 


Rearranging  equation  (2.56)  yields 


E(N.,),Ay"»=(T;“'+QW:D)At 


B=1 


(2.57) 


where 


(^ap)t  ~ ^aP 


f rvAK/(“)V  D(“)  . d(P) 


aAty;° 


V in  ^ 


R;“'  : P, 


V 


(a)  +sign(xf))^^ 


g, 


Q<“)  = 


V j 


R 


(a) 


(2.58) 


(2.59) 


Inverting  of  equation  (2.57)  gives  following  formulas  of  increment  of  resolved  shear 
strain  of  slip  system. 


^^(P)  ^ J^(N;'p),  (y(“)  + Q<“>  . D)At  = (f <“>  + F,'“>  • D)At 

p=i 


(2.60) 


where 


fr’  = E(M..,),r!' 


(P) 


(2.61) 


p=i 


and 


r,“’=E(M.,).Q®  (2.62) 

P=1 

where  M„p  is  the  inverse  of  the  slip  system  matrix  N„p . 

In  the  rate  dependent  formulation,  the  slip  rates  on  each  slip  system  are  uniquely 
specified.  In  the  rate  tangent-modulus  formulation,  the  time  step  At  can  always  be  taken 

small  enough  so  that  the  Kronecker  delta  in  the  matrix  N„p  equation  (2.58)  dominates. 
Next,  the  kinematic  formulations  in  our  finite  element  program  are  assumed  to  be  written 
to  provide  an  approximate  integration  of  the  rate  of  stretching  and  the  co-rotational  terms 
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in  the  Jaumann  rate  of  Kirchoff  stress,  so  that  we  are  given  an  estimate  of  Ae 
corresponding  to  the  integral  of  the  stretching  D over  the  time  increment  At.  We  need  not 
concern  ourselves  with  the  co-rotational  terms  in  calculating  the  increment.  Then  by 
substituting  equation  (2.60)  into  the  governing  equation  (2.36),  we  have  the  incremental 
form 


where  C is  the  tangent  stiffness  matrix.  Isotropic  elasticity  matrix  is  used  for  numerical 
simplicity.  Note  that  the  fourth  order  tensor  represented  by  RF  is  nonsymmetric  since  N 
matrix  is  in  general  nonsymmetric.  The  incremental  modulus  C , which  depends  on  the 
material  properties,  the  stress  and  also  the  parameter,  is  reduced  considerably  from  the 
elastic  stiffness  matrix  C*.  This  permits  larger  strain  increments  while  producing 
moderate  stress  increments.  Therefore  this  leads  to  improved  numerical  stability.  It 
should  be  noted  that  this  tangent  stiffness  matrix  reflects  the  structure  of  the  underlying 
constitutive  equations.  The  moduli  C do  not  possess  the  symmetry  in  general. 

Once  the  increments  of  resolved  shear  strain  in  slip  systems  are  calculated  critical 
resolved  shear  stress  is  updated  as  follows. 


n 


(2.63) 


where 


n 


(2.64) 


(2.65) 


Next  the  plastic  deformation  gradient  is  also  updated  as  follows. 


(2.66) 
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where 

AF^=  j]Ar“(s“ni")F'  (2.67) 

a=l 

It  is  assumed  that  the  finite  element  program  supplies  the  total  deformation  gradient  F. 
Using  the  computed  plastic  part  of  deformation  gradient  F^,  the  elastic  deformation  F*  is 
calculated  by  equation  (2.7).  Using  the  elastic  part  of  deformation  gradient  F*,  the  slip 
vector  s**“’  and  are  obtained  by  using  equations  (2.8)  and  (2.9).  The  intermediate 
tensors  obtain  values  by  equations  (2.18),  (2.19),  (2.35)  and  (2.37). 

A new  current  status  is  thus  defined  and  again  the  incremental  equations  are  solved  for 
the  displacement  increments  for  the  next  step. 

All  these  procedures  are  implemented  in  ABAQUS  through  the  user  material 
subroutine  UMAX.  The  time  steps  must  remain  small  to  accurately  track  the  evolution  of 
the  state  variables.  Therefore  many  time  steps  are  required  to  model  the  deformation,  but 
the  integration  procedure  is  so  simple  that  equilibrium  is  often  achieved  in  the  first 
iteration.  Strain  increments  and  state  variables  are  determined  at  the  beginning  of 
increment.  The  user  provides  formulation  for  the  tangent  stiffhess  matrix  to  solve  the 
equilibrium  equations  in  UMAX.  Newton’s  method  is  used  to  solve  the  nonlinear 
equilibrium  equations  in  ABAQUS.  Stress  increments  are  calculated  by  equation  (2.63). 
The  deformation  gradient  increment  is  calculated  and  updated  using  deformation  and 
stress  histories.  And  then  whole  geometric  components  and  internal  state  variables  are 
updated.  Updated  variable  including  strain,  stress,  deformation  gradient  at  the  end  of  the 
increment  will  be  the  states  of  beginning  of  the  next  increment.  These  whole  steps  are 
repeated  until  it  reaches  the  final  prescribed  strain.  The  time  step  between  the  increments 
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is  automatically  controlled  by  ABAQUS.  The  user  specifies  the  minimum,  maximum  and 
initial  suggested  time  increment. 


CHAPTER  3 
LITERATURE  REVIEW 

Previous  Study  of  Localization  Phenomena 

Understanding  of  localized  deformations  in  single  crystals  is  of  importance  due  to 
the  its  possible  correlation  with  an  initiation  of  fractures  of  single  crystals.  Localized 
deformation  has  generally  been  associated  with  shear  localization.  Uniform  deformations 
are  observed  at  the  initial  stages  of  deformation,  i.  e.  before  the  plastic  deformation 
initiates.  As  the  deformations  enter  the  plastic  deformation  regime,  ductile  single  crystals 
usually  display  inhomogeneous  status  that  is  usually  distinguished  as  localized  modes 
such  as  necking,  shear  bands  and  kink  bands.  Shear  band  has  been  observed  in  a large 
number  of  crystalline,  metals,  glasses,  polymers  and  rocks.  Numerous  researchers  have 
studied  localization  phenomena  and  recognized  their  crucial  role  as  precursors  of 
upcoming  fracture.  There  are  numerous  examples  in  which  plastic  flow  in  crystal  transits 
from  a homogeneous  mode  of  deformation  to  one  that  is  strongly  concentrated  in  narrow 
localized  band.  Shear  localization  is  often  associated  with  strain  softening  such  as 
microvoid  initiation  and  growth,  microcrack  formation  (Tvergaard,  1981).  Thermal 
softening  is  usually  found  at  high  strain  rates.  Nonuniform  plastic  deformation  produces 
nonuniform  heat.  This  nonuniform  heating  promotes  local  thermal  softening.  For 
instance,  forging  processes  that  accompany  much  fiiction  inside  the  material  and  between 
die  and  material  may  show  localization  by  thermal  softening  effect.  Zhu  and  Batra  (1993) 
analyzed  dynamic  shear  bands  including  thermal  softening  effects  in  an  FCC  single 
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crystal.  The  shear  localization  is  often  interpreted  as  the  loss  of  work  hardening  of 
material  due  to  the  imperfections  or  material  changes.  However,  it  is  well  recognized  that 
shear  localization  can  be  initiated  in  damage-free,  strain  hardening  materials. 

Hill  and  Hutchinson  (1975)  investigated  the  development  of  the  localized 
deformation  zones  in  plane  strain  deformation  problems  theoretically  in  rate  independent 
frame.  Bifurcation  problems  in  tensile  test  have  been  studied  for  an  incompressible  solid. 
They  suggested  the  possibility  that  localization  is  a result  of  a constitutive  instability  and 
is  predictable  from  the  pre-localized  constitutive  law  relating  stress  increments  to  strain 
increments.  The  constitutive  specifications  are  characterized  by  two  instantaneous 
moduli,  p and  p*.  p is  a modulus  for  shearing  parallel  to  the  coordinate  axes  and  p*  is  a 
modulus  for  shearing  at  45  degrees  to  them.  They  reported  the  variety  of  possible 
bifurcations  including  necking  and  initiation  of  shear  band  is  associated  with  loss  of 
ellipticity  in  the  governing  equation. 

Tvergaard  et  al.  (1981)  analyzed  flow  localization  in  the  plane  strain  tensile  test 
numerically.  They  pointed  out  that  it  is  natural  to  see  in  no  tendency  for  intense  localized 
shearing  in  the  previous  studies  (McMeeking  and  Rice,  1975;  Burke  and  Nix,  1979)  that 
used  simple  smooth  yield  surface  theory  of  plasticity  to  characterize  material  behavior. 
The  classical  elastic-plastic  solid  with  a smooth  yield  surface  is  quite  resistant  to 
localized  deformation.  They  employed  J2  comer  theory  (Christoffersen  and  Hutchinson, 
1979)  as  a yielding  condition.  The  assumption,  embodied  in  the  classical  theory  of 
plasticity,  of  a smooth  yield  surface  is  at  variance  with  models  for  polycrystalline 
aggregates  based  on  single  crystal  slip.  The  discreteness  of  slip  systems  in  each  grain 
leads  to  the  prediction  of  a yield  surface  vertex.  A long-wave  length  of  initial 
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imperfection  grows  into  the  well-known  necking  mode  and  subsequently  at  sufficiently 
large  strain  level  bands  of  intense  shear  deformation  develops  in  the  necking  region. 

Asaro  and  Rice  (1977)  discussed  about  the  possibility  of  localization  other  than  due 
to  the  strain  softening.  Localization  phenomena  in  metals  are  usually  interpreted  by  strain 
softening  due  to  the  loss  of  hardening  at  a certain  amount  of  strain.  However,  Price  and 
Kelly  (1964)  reported  observation  of  localization  during  the  positive  hardening.  Asaro 
and  Rice  investigated  the  possibility  of  localization  in  positive  hardening  regimes  for 
single  crystals.  Shear  band  formation  was  viewed  as  a material  constitutive  instability  and 
strongly  depended  on  material  constitutive  law.  In  order  to  understand  the  physical  origin 
of  shear  band  formation,  bifurcation  model  conditions  have  been  analyzed  as  a function 
of  slip  geometry,  applied  stress  level  and  strain  hardening  behavior  of  the  materials.  The 
criterion  for  shear  band  formation  through  bifurcation  analysis  was  reported  as  follows. 
Localized  deformation  occurs  when  the  plastic  strain  hardening  modulus  h falls  into 
critical  value  hcrit- 

Inhomogeneous  deformation  in  single  crystals  was  studied  by  using  a simple  double 
symmetric  slip  model  (Asaro,  1979).  Single  crystals  undergoing  multiple  slip  naturally 
present  the  prime  model  for  yield  vertex  structure  in  the  rate  independent  frame.  He 
showed  that  loading  path  change  from  tensile  to  combined  tensile-shear  mode  may  lead 
to  the  elastic-plastic  response  at  the  vertex  and  smooth  yield  surface  leads  to  elastic 
response.  These  results  suggest  that  vertexes  can  lead  to  localized  shearing.  In  addition  to 
vertices  there  are  other  geometric  effects,  associated  with  the  rotation  of  the  crystal’s 
lattice  during  deformation. 
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Chang  and  Asaro  (1980)  performed  experimental  work  on  Al-Cu  single  erystals  to 
confirm  their  analytical  predictions  (Asaro,  1979)  regarding  the  condition  for  localization 
and  the  effects  of  lattice  rotation.  X-ray  diffraction  uncovered  that  the  lattice  within  the 
localized  band  has  finite  lattice  rotations.  Local  lattice  rotations  cause  softening  within  a 
band.  Softening  by  lattice  rotation  is  called  geometrical  softening. 

Peirce  et  al.  (1982)  reported  numerical  analysis  using  finite  element  method  of  rate 
independent  single  crystal  model  as  a continuation  of  work  on  their  theoretical  research 
(Asaro  1979).  Shear  band  was  observed  through  numerical  analysis  and  lattice  rotation 
was  a main  contributor  for  shear  localization  like  they  predicted  through  their  analytical 
model  and  experiment.  Shear  band  was  formed  immediately  after  necking  occurs.  The 
pattern  of  shear  band  was  influenced  by  the  initial  imperfections.  Numerical  results  were 
well  matched  with  experiment  for  high  strength,  low  hardening  crystals.  Patchy  type  of 
slip  was  reported  when  high  value  of  latent  hardening  ratio  was  used. 

The  rate  dependent  formulations  for  single  crystals  were  employed  by  Peirce  et  al. 
(1983).  Such  models  make  it  possible  to  study  the  effect  of  properties  such  as  strain  rate 
sensitivity,  hardening  properties  and  crystal  geometry  that  can  not  be  studied  using 
previously  used  rate  independent  models.  High  strain  rate  sensitivity  delays  formation  of 
shear  band.  Strong  latent  hardening  ratio  for  instance  1.8  prevents  shear  band  from 
propagating  in  the  specimen.  When  the  slip  system  is  inclined  more  than  45  degrees  form 
tensile  axis  shear  band  was  not  formed  on  the  active  slip  systems  because  lattice  rotation 
leads  to  the  decrease  of  resolved  shear  stress  in  the  active  slip  system. 

Most  of  the  previous  study  on  shear  band  formation  in  single  crystals  concentrated 
on  FCC  structures.  Deve  et  al.  (1988)  extended  their  study  on  shear  band  formations  in 
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BCC  single  crystal  structures  of  internally  nitrided  alloys  Fe-Ti-Mn.  Shear  band  was 
formed  in  experimental  studies  and  numerical  simulation  due  to  the  geometric  softening 
of  the  lattice. 

Harren  et  al.  (1988)  performed  experimental  work  and  finite  element  analysis  to 
study  localization  in  plane  strain  compression  tests.  They  also  found  that  lattice  rotation 
caused  the  geometric  softening  even  during  the  hardening  process. 

Zbib  et  al.  (1992)  studied  shear  banding  under  dynamic  loading  in  three-dimensional 
geometry.  Shear  band  is  observed  in  many  manufacturing  processes  such  as  production  at 
high  strain  rates  and  explosive  forming  penetration  other  than  just  quasi-static  loading 
conditions  like  tensile  test.  They  considered  two  constitutive  models  for  the  shear  band 
formation  analysis.  Thermoviscoplasticity  and  elastoviscoplasiticity  types  of  constitutive 
relations  were  used.  They  included  thermal  softening  effects  in  their  constitutive  model 
due  to  the  adiabatic  heating  for  thermoviscoplasticity  model.  Strain  softening  behavior 
for  elastoplasiticity  may  due  to  the  thermal  softening,  damage  degradation  and  texture 
softening  was  included.  They  concluded  that  initial  imperfections  and  a softening  terms 
in  the  constitutive  equations  are  the  main  contributors  for  forming  the  shear  band  in  their 
three  dimensional  analysis  under  dynamic  loading. 

Zhang  et  al  (1994)  studied  inhomogeneous  plastic  deformation  in  ductile  single 
crystals  using  so-called  discrete  slip  model.  Most  of  finite  element  analysis  in  the  single 
crystals  assume  that  the  crystal  is  a homogeneous  media  but  they  pointed  out  that  slip 
lines  are  distributed  randomly  on  the  whole  crystal  length  with  slip  line  density 
depending  on  the  strain.  Their  discrete  slip  model  differs  from  other  model  in  that  the 
spatial  material  heterogeneities  as  imperfections  to  reflect  the  influence  of  the 
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microscopic  inhomogeneity  on  the  plastic  deformation.  The  crystal  is  divided  into  lots  of 
bands  in  which  critical  resolved  shear  stress  distributes  randomly.  Each  band  parallel  to 
the  slip  planes  is  taken  as  crystal,  which  the  crystal  constitutive  laws  are  in  force. 

Kink  bands  are  another  localized  phenomena  in  single  crystals.  Fraser  et  al.  (1973b) 
reported  kink  band  in  the  compression  tests  of  hard  oriented  NiAl  single  crystals.  They 

reported  that  kink  band  is  associated  with  the  [010](101)  or  [010]  (101).  Lattice 
rotations  are  caused  by  the  constraints  of  the  compression  test.  Geometric  softening 
occurs  due  to  the  lattice  rotation  and  causes  the  localized  deformations. 

Previous  Study  on  Hardening  of  the  Single  Crystals 

Many  authors  studied  the  interactions  among  the  slip  systems  in  FCC  crystals 
(Kocks,  1964;  Basinski  and  Basinski,  1979;  Franciosi  et  al.,  1980).  From  microscopic 
viewpoint  of  the  deformed  single  crystals,  they  regard  hardening  of  single  crystals  as  the 
results  of  dislocation  interactions  between  slip  systems.  Internal  dislocation  density  and 
short  range  interacting  dislocation  strengths  are  the  main  parameters  of  the  hardening 
analysis.  Two  methods  are  used  to  measure  the  latent  hardening  ratios.  The  first  method 
is  a measure  of  overshoot  angles  of  conjugate  slip  system  to  predict  amounts  of  latent 
hardening.  The  second  method  is  comparing  the  yield  stress  of  previously  latent  slip  to 
the  flow  stress  of  primary  slip. 

Latent  hardening  test  for  aluminum  single  crystals  was  done  by  Kocks  and  Brown 
(1966).  Latent  hardening  ratio  was  obtained  by  comparing  flow  stress  of  primary  slip 
system  and  secondary  slip  system.  Slip  systems  were  divided  into  two  groups.  Slip 
systems  in  the  primary  slip  plane  showed  similar  flow  stress  with  primary  slip  system. 
Other  planes  showed  increase  of  flow  stress  by  10  to  30  %. 
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Jackson  and  Basinski  (1967)  performed  latent  hardening  test  on  copper  single 
crystals.  When  hardening  in  slip  planes  that  are  not  the  primary  slip  plane  was  tested, 
latent  hardening  ratio  greater  than  one  was  obtained.  Latent  hardening  ratios  ranged  from 
2.5  in  stage  I to  1.4  in  stage  II. 

Nakada  and  Keh  (1966)  studied  latent  hardening  of  iron  single  crystals.  Latent 
hardening  ratio  was  found  greater  than  one.  They  concluded  latent  hardening  was  due  to 
either  the  elastic  interaction  between  glide  and  forest  dislocations  or  the  lack  of  mobile 
dislocations  in  the  latent  system. 

In  Franciosi  et  al.  (1982),  critical  resolved  shear  stress  was  expressed  mainly  as  a 
function  of  dislocation  interaction  coefficients  [a]  matrix  and  dislocation  density  p.  They 
defined  slip  interactions  using  [a]  matrix.  Contents  of  [a]  matrix  were  classified  by 
dislocation  junction  such  as  sessile,  glide,  hirth  lock,  no  junction  and  self-hardening 
according  to  the  slip  interactions  between  the  corresponding  two  slip  systems.  For  the 
rate  dependent  approach,  Franciosi  (1985)  showed  that  hardening  matrix  [h]  could  be 
explained  by  [a]  matrix,  which  represents  dislocation  interactions  between  slip  systems. 

Weng  (1987)  proposed  his  modified  hardening  law.  Latent  hardening  ratio  was 
determined  by  considering  the  angles  between  the  slip  systems.  He  pointed  out  that  the 
widely  used  "two-parameter  rule",  h„p  = qh -i- (1  - q)h5„p , by  Hutchinson  (1970)  and 

Asaro  (1983)  can  not  distinguish  between  forward  and  reversed  slip  and  between  acute 
and  obtuse  cross  slip.  He  also  mentioned  that  “undershoot”  often  observed  in  the 
experiment  might  not  be  predicted  using  two-parameter  rule,  which  has  strong  latent 
hardening.  Isotropic  hardening,  kinematic  hardening,  strong  latent  hardening  and 
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Baushinger  effects  could  be  implemented  into  his  model.  He  devised  the  following 
formula  to  express  latent  hardening  ratios. 


where  0ij  is  the  angle  between  the  slip  directions  of  the  i-th  and  j-th  systems.  (j)ij  is  the 
angle  between  the  slip  plane  normals  of  the  i-th  and  j-th  systems.  ai  is  the  degree  of 
isotropy  in  work  hardening  and  a2  represents  the  anisotropic  departure  for  the  latent 
hardening  of  coplanar  systems  and  is  the  additional  departure  for  the  intersection  ones. 

Bassani  and  co-workers  investigated  hardening  criterion  for  multi  slip  condition  in 
single  crystals  of  FCC  metals.  Through  careful  physical  observation  of  experiment  on 
latent  hardening  measurement  in  the  symmetrically  loaded  orientation  of  copper  single 
crystals,  they  suggested  following  facts.  Hardening  in  secondary  slip  system  may  lower 
than  that  in  active  slip  system.  Rapid  increase  of  hardening  rate  is  observed  when 
secondary  slip  system  is  activated.  Hardening  behaviors  change  according  to  loading 
orientation. 

They  pointed  out  that  widely  used  hardening  rule,  h^p  = qh  + (1  - qjhd^^^p , by 
Hutchinson  (1970)  and  Asaro  (1983)  can  not  predict  stage  II  deformation  of  FCC 
crystals. 

Bassani  and  Wu  (1991)  devised  phenomenological  hardening  law  based  on  their 
observations  as  follows. 


gij  =aj  +(l-a,)cos0ij  cos(j)ij  +(a2  sinO^-i-aj  sin(|)ij) 


(3.1) 


haa  =F(yJG(Yp) 


(3.2) 


(3.3) 
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where  h is  the  instantaneous  hardening  modulus,  haa  represents  diagonal  terms  of  the 
hardening  matrix  and  hap  represents  off-diagonal  terms  of  hardening  matrix. 


F(y“)  = (ho  -h^)sech' 


(hp-hjY° 

(■t,  -To) 


+ h„ 


(3.4) 


G(y‘*)  = 1+  J f„ptanh(^)  (3.5) 

p=l,p!ea  y 0 

where  F is  the  instantaneous  hardening  modulus  under  independent  single  slip  a and  G is 
the  term  represents  the  interactive  latent  hardening.  G is  the  function  of  total  slips  except 
on  a slip.  In  their  hardening  model,  unlike  the  conventionally  used  latent  hardening 
effects  describing  coupling  between  the  two  slip  systems,  functional  form  G describes 
interactions  between  slip  systems  has  been  multiplied  to  the  self  hardening  modulus  of 
hardening  matrix.  Whereas  in  Asaro’s  hardening  model  latent  hardening  effect  has  been 
represented  by  off  diagonal  terms  through  higher  value  of  latent  hardening.  With  this 
hardening  formula  transition  from  stage  I to  stage  II  in  FCC  crystals  and  orientation 
dependence  of  hardening  can  be  explained  but  positive  definite  of  hardening  matrix  is  not 
guaranteed  after  material  softening  happens. 

In  the  study  of  hardening  characteristics  of  NiAl  single  crystals  higher  hardening  at 
the  large  strain  regime  was  observed  in  the  [110]  orientation  (Levit  et  al.,  1996).  Asaro’s 
hardening  formula  was  used  to  represent  the  higher  hardening  in  2-DIM  using  two  slip 
systems  in  {100}  slip  planes.  Hardening  rate  formula  used  is  as  follows 

h{y)  = h„sech\  ).  From  this  simple  formula  higher  hardening  and  transition  to  higher 

hardening  at  large  strain  may  not  be  expected.  Even  using  power  law  type  hardening  law 
which  has  a higher  hardening  rate,  the  same  results  were  obtained. 
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For  BCC  crystals  Franciosi  (1983)  proposed  hardening  law  as  an  extension  of  FCC 
crystal’s  hardening  law.  They  assumed  {110}  and  {121}  slip  planes  are  activated.  Total 
critical  resolved  shear  stress  of  the  erystals  is  expressed  as  the  summation  of  critical 
resolved  shear  stress  of  each  different  type  of  slip  system.  Between  two  different  slip 
systems  latent  hardening  eurves  are  described  by  four  formulas.  For  instance,  if  we  have 

AS  BS  AS  BS 

two  slip  systems  A and  B,  latent  hardening  ratios  are  described  by  ■ Here  p 

means  primary  slip  system  s means  secondary  slip  system. 


CHAPTER  4 

LOCALIZATION  PHENOMENA  IN  NIAL  SINGLE  CRYSTALS 

Finite  Element  Model  for  Localization  Problem 

An  ordered  intermetallic  compound  NiAl  single  crystal  has  a lattice  structure  similar 
to  body  centered  cubic  crystal  and  shows  distinct  slip  systems  at  different  temperatures. 
In  general,  NiAl  single  crystals  exhibit  two  significantly  different  types  of  slip  behavior 
depending  on  orientation.  Along  the  <100>  loading  orientation,  defined  as  hard 
orientation,  slip  systems  have  almost  zero  resolved  shear  stress  along  <100>  burgers 
vector.  Therefore,  a main  operative  slip  vector  is  <11 1>  at  low  and  intermediate 
temperatures  and  a combination  of  <100>  and  <11 0>  at  high  temperatures  as  a result  of 
non-<100>  slip  vectors  activation  hard  orientation  exhibit  much  higher  flow  stress  than 
soft  orientation.  Non-<100>  orientation  is  defined  as  soft  orientation  when  loaded  along 
soft  orientations.  NiAl  single  crystals  deform  mainly  by  shear  along  <100>burgers 
vectors. 

For  the  localization  analysis  in  single  crystals,  the  following  initial  thickness 
inhomogeneity  is  taken  (Tvergarrd  et  al.,  1981). 

Tix^  - mrtx^ 

Aho  =ho(-^,cos(— ) + ^2COs(— ))  (4.1) 

Lq  Lq 

where  and  ^2  ^re  prescribed  imperfection  amplitudes  and  m is  a wave  number. 
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We  used  following  specimen  model  for  the  simulation,  where  dimension  is,  22(mm) 
long,  5(mm)  wide  and  2.0  (mm)  thick.  This  is  the  same  dimensions  used  to  investigate 
macroscopic  deformation  processes  of  NiAl  single  crystal.  The  actual  specimen  includes 
two  flanges  where  the  outer  flanges  are  used  to  hold  the  specimen  in  the  tensile  testing 
machine.  But  for  the  finite  element  analysis  only  the  inner  flanges  are  included.  Loading 
has  been  imposed  by  a prescribed  constant  displacement  rate  with  the  following  formula, 
U = aL() , at  the  all  nodes  of  the  top  edge  of  specimen,  where  Lq  is  the  total  length  of 

specimen,  a is  the  strain  rate  and  U is  the  displacement  rate.  All  nodes  at  the  top  edge  of 
specimen  were  specified  to  have  the  same  displacement  in  the  loading  direction. 
Incompatible  plane  stress  element  (CPS4I)  in  ABAQUS  was  used  to  capture  possible 
localizations.  This  incompatible  mode  element  has  an  extra  deformation  mode  to 
facilitate  localized  deformation  (ABAQUS,  1994).  1640  elements  were  used  for  this 
simulation. 

Table  4-1  Simulation  data  used  for  NiAl  single  crystals  for  localization  problem  at  200°C 


Elastic  bulk  Modulus  K 
(MPa) 

Shear  Modulus  G 
(MPa) 

Poisson’s 

ratio 

Imperfection 

164916.12 

68660.79 

0.3172 

0.0126,0.072,5 

The  material  data  used  in  this  simulation  is  as  in  table  4-1.  Shear  modulus  G and 
bulk  modulus  K are  adopted  from  Miracle  (1993).  The  initial  critical  resolved  shear  stress 
To,  saturation  strength  of  material  and  initial  value  of  hardening  slope  Hq  were  obtained 
by  curve  fitting  of  hypertangent  type  hardening  curve  to  the  experimental  vs.  y curve. 
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For  the  [110]  loading  directions  (figure  4-1)  NiAl  single  crystals  mainly  deform  by 
activation  of  {100}<001>  slip  systems.  When  the  specimen  is  loaded  in  <1 10>  direction, 
the  plane  of  deformation  {001}  contains  burgers  vectors,  slip  plane  normal  vectors,  and 
tensile  axis  in  either  parallel  or  perpendicular  to  the  thickness  of  the  sample  cross  section. 
Axis  of  rotation  is  normal  to  the  deformation  plane  (001 }.  As  a consequence  of  geometry 
of  slip  systems  in  this  loading  direction,  simulation  can  be  performed  by  the  assumption 
of  planar  model.  For  [110]  loading  orientation,  plane  of  deformation  is  (001). 

In  our  planar  model,  primary  slip  system  is  assumed  to  be  (010)[100]  and  conjugate 
slip  system  is  assumed  to  be  (100)[010]  for  loading  along  [110]  orientation.  For  this 
geometry,  each  slip  system  is  inclined  45  degrees  with  respect  to  the  tensile  axis  [110] 
and  both  slip  planes  are  aligned  perpendicular  to  the  plane  of  deformation  and  are  aligned 
symmetrically  with  respect  to  the  loading  axes.  This  symmetry  of  slip  systems  makes 
loading  axis  stable  so  no  lattice  rotations  occurs  during  deformation.  Next,  boundary 
conditions  are  assigned  as  follows.  All  nodes  at  bottom  side  of  specimen  are  fixed  in  the 
y direction,  two  nodes  at  the  middle  of  top  and  bottom  side  are  fixed  in  the  x direction. 

Next  we  consider  different  loading  conditions  to  simulate  hard-oriented  specimen  of 
NiAl  single  crystals  in  compression  test.  To  imitate  the  experimental  compression  test, 
the  bottom  side  of  the  specimen  was  fixed  in  the  y direction  and  middle  node  of  bottom 
side  was  fixed  in  the  x direction  too.  However,  the  topside  of  the  specimen  had  no 
constraints  at  all  so  it  can  move  freely  in  x direction  (figure  4-2). 

Double  slip  ({100}<010>  slip  system)  and  single  slip  ({101}<100>  slip  system) 
conditions  were  investigated  to  look  at  the  well  known  kink  band  formation  in  NiAl 
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single  crystal  (Fraser  et  al.,  1973a,  b).  Loading  direction  is  a few  degrees  off  from  the 
hard  orientation  <00 1>. 

For  the  double  slip  case  (figure  4-2),  [010](100)  slip  system  and  [100](010)  slip 
system  is  active  and  plane  of  deformation  is  (001)  plane.  For  the  single-slip  case  (figure 
4-3),  [010]  (1 01)  slip  system  is  active  and  plane  of  deformation  is  (lOl)plane.  When  the 
specimen  is  loaded  a few  degrees  off  from  hard  orientation  <01 0>,  both  the  plane  of 
deformation  for  double  slip  model  and  the  plane  of  deformation  for  single  slip  model 
contain  burgers  vector,  slip  plane  normal  vector,  and  tensile  axis  in  either  parallel  or 
perpendicular  to  the  thickness  of  the  sample  cross  section.  Therefore,  the  simulation  can 
be  performed  using  a two-dimensional  planar  model. 

Study  of  Shear  Band  Formation  in  NiAl  Single  Crystals 

We  have  looked  through  the  previous  studies  on  the  localization  phenomena  in  the 
previous  section.  Here,  localized  deformation,  especially  shear  band  formation  in  NiAl, 
of  single  crystals  have  been  studied  to  investigate  the  characteristics  and  mechanism  of 
shear  band. 

NiAl  exhibits  low  ductility  and  low  fracture  toughness  near  room  temperature. 
Significant  ductility  is  obtained  only  above  200°C.  Load  versus  elongation  curve  at 
various  temperatures  indicates  that  fracture  stress  at  RT  is  lower  than  at  200°C.  This 
seems  to  suggest  that  fracture  at  low  temperatures  may  be  initiated  by  localized 
deformation  such  as  shear  bands  (Ebrahimi  and  Shrivastava,  1997a,  b).  While 
macroscopic  shear  band  formation  has  not  been  observed  experimentally  in  NiAl,  it  is 
possible  that  fracture  may  be  initiated  by  a tendency  towards  localization.  In  order  for  a 
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single  crystals  to  obtain  arbitrary  plastic  strain,  it  must  have  at  least  five  independent  slip 
systems  (Reid,  1973).  The  <100>  slip  directions  constitutes  only  3 independent  slip 
systems.  Insufficient  slip  systems  do  not  afford  the  strain  compatibility  between  the 
grains.  As  a result,  intergranular  microcracks  are  formed  and  very  high  internal 
hydrostatic  stress  components  that  provide  the  driving  force  for  intergranuler  crack 
propagation  are  developed  (Ebrahimi  and  Hoyle,  1997).  To  understand  the  conditions  that 
lead  to  shear  localization  as  well  as  the  constitutive  parameters  that  play  a significant 
role,  numerical  simulations  performed  with  varying  values  of  parameters,  specimen 
geometry,  orientation  and  boundary  conditions.  Previous  studies  on  shear  band  formation 
(Peirce  et  al.,  1982,  1983;  Deve  et  al.,  1988)  indicate  that  both  rate  sensitivity  and  latent 
hardening  significantly  influence  the  formation  of  shear  localization.  In  this  study,  these 
properties  as  well  as  the  effect  of  hardening  were  studied.  Results  of  the  numerical 
simulation  indicated  that  low  rate  sensitivity  and  low  hardening  facilitate  shear  band 
formation.  The  underlying  cause  for  the  formation  of  shear  bands  is  orientation  softening 
that  creates  a band  where  lattice  rotation  has  made  possible  deformation  at  a lower  load. 
As  a result,  further  deformation  localizes  in  the  band  causing  highly  localized  shear. 
Shear  bands  were  simulated  numerically  for  elongation  along  the  neighborhood  of  [1 10] 
direction.  As  mentioned  earlier,  no  lattice  rotation  occurs  for  elongation  along  the  [110] 
direction.  However,  at  orientations  a few  degrees  to  either  side  of  the  [110]  direction, 
lattice  rotation  occurs  that  tries  to  rotate  the  lattice  back  to  the  [110]  symmetric 
orientation.  Due  to  the  specimen  geometry  and  imposed  geometric  imperfections,  non- 
uniform  deformation  occurs.  Regions  where  more  lattice  rotation  occurs  become  softer 
thus  promoting  shear  band  formation. 
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Simulations  were  performed  using  the  hardening  law  described  in  chapter  2.  Three 
values  of  strain  rate  sensitivity,  m=0.006,  m=0.01  and  m=0.02  were  used  to  show  its 
effects  on  the  shear  band  formation,  a =0.0005  s ‘ was  used  as  a reference  shear  rate  in 
equation  (2.38)  for  localization  problems.  Numerical  simulation  of  elongation  3°  off  from 
the  [110]  direction  using  low  work  hardening  was  simulated  to  show  the  formation  of 
shear  band. 

Figure  4-4  shows  deformed  mesh  plots  at  12  %,  13.5  %,  15  % nominal  strain  using 
strain  rate  sensitivity  m=0.006.  Upto  12  % nominal  strain  deformed  mesh  shows 
homogeneous  deformation  (figure  4-4-a).  However  after  this  stage  localized  shears  are 
accumulated  on  the  deformed  mesh  (figure  4-4-b).  Clear  shear  bands  are  observed  at  15 
% nominal  strain  (figure  4-4-c).  Figure  4-5  shows  deformed  mesh  plots  at  12  %,  13.5  %, 
15  % nominal  strain  using  strain  rate  sensitivity  m=0.01.  Shear  bands  are  observed  at  15 
% nominal  strain  (figure  4-5-c).  In  this  case,  shear  bands  are  not  clear  as  in  case  of 
m=0.006.  Figure  4-6  shows  homogeneous  deformed  meshes  even  at  15  % nominal  strain. 
With  higher  value  of  rate  sensitivity  (figure  4-5  and  figure  4-6)  no  clear  shear  bands  are 
shown.  As  can  be  seen,  sharp  bands  are  formed  only  for  low  values  of  rate  sensitivity 
(figure  4-4,  m=0.006).  However,  as  mentioned  in  the  early  section,  the  {100}<001>  slip 
system  has  a high  work  hardening  rate  even  at  large  deformation.  Both  primary  slip 
system  and  conjugate  slip  system  have  a same  resolved  shear  strain  regardless  of  lattice 
rotation.  So,  double  shear  bands  can  be  formed.  However,  all  shear  bands  occur  along  the 
primary  slip  system  due  to  the  initial  imperfection  of  the  specimen. 
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Contour  plots  of  Cauchy  strain  in  figures  4-7,  4-8  and  4-9  indicate  that  intense 
localized  strains  within  the  shear  band.  In  figure  4-7-c,  the  most  strained  regions  in  the 
shear  bands  have  0.45  Cauchy  strain  when  the  nominal  strain  was  15  %.  Figure  4-8-c  also 
shows  intense  localized  strain  at  the  middle  of  specimen.  However,  in  figure  4-9-c,  less 
intense  amount  of  Cauchy  strains  are  observed. 

Load  vs.  elongation  plots  is  shown  in  figure  4-24.  With  the  lower  strain  rate 
sensitivity  load  drops  rapidly  and  this  load  drop  facilitates  the  slight  necking.  Necking 
begins  at  the  point  of  plastic  instability  where  the  increase  of  strength  due  to  strain 
hardening  fails  to  compensate  for  the  decrease  in  cross-sectional  area  of  specimen.  The 
slight  necking  facilitate  formation  of  localized  band.  The  lowest  strain  rate  sensitivity  in 
the  simulation,  m=0.006,  shows  abrupt  load  dropping  compared  to  other  cases  and  forms 
a clear  shear  band. 

Figures  4-10,  4-11  and  4-12  show  the  contour  plots  of  Cauchy  stress  in  the  loading 
direction.  High  stress  region  is  first  developed  from  the  flange  at  the  first  stage  of 
deformation.  In  the  region  of  shear  band  formed  intense  stress  is  observed  with  lower 
strain  rate  sensitivity  at  the  last  stage  of  deformation  (figure  4-10-c). 

Figures  4-13,  4-14  and  4-15  show  the  contour  plots  of  crystal  lattice  rotations  as 
strain  rate  sensitivity  varies.  Lattice  rotation  causes  geometric  softening  and  facilitates  the 
formation  of  shear  band.  In  figure  4-13-c  with  low  strain  rate  sensitivity,  more  lattice 
rotations  occur  than  other  cases  at  the  region  of  shear  band.  So,  these  contour  plots 
explain  the  role  of  lattice  rotations  on  the  formation  of  shear  band. 

Figures  4-16,  4-17  and  4-18  show  the  contour  plots  of  resolved  shear  strain  of 
primary  slip  system.  In  figure  4-16-c,  resolved  shear  strain  in  primary  slip  system  is  0.463 
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when  m=0.006  was  used  for  the  simulation.  Due  to  the  lattice  rotation,  high  resolved 
shear  strain  is  accumulated  at  the  region  where  large  lattice  rotations  occurs  and  therefore 
softening  occurs  at  this  region. 

The  effect  of  parameters  such  as  strain-rate  sensitivity  parameter  and  the  geometry  of 
slip  systems  have  been  presented  to  investigate  effects  of  these  parameters  on  the 
formation  of  shear  band.  As  a next  step,  the  effect  of  hardening  characteristics  on 
localization  phenomena  is  presented. 

Figure  4-19  shows  the  effect  of  work  hardening  with  the  moderate  value  of  strain  rate 
sensitivity  m=0.02.  These  plots  show  that  localization  can  occur  even  using  high  value  of 
strain  rate  sensitivity  if  the  hardening  of  material  shows  soft  behavior.  In  figure  4-19-a, 
severe  localization  occur  at  the  center  of  specimen  whereas  homogeneous  deformation  is 
shown  along  the  whole  specimen  in  figure  4-19-b  and  figure  4-19-c. 

Contour  plots  of  Cauchy  strain,  Cauchy  stress,  resolved  shear  strain  and  lattice 
rotations  are  shown  in  figure  4-20,  figure  4-21,  figure  4-22  and  figure  4-23  respectively. 
With  high  value  of  saturation  hardening  t^,  no  localized  lattice  rotations  are  observed. 
Therefore,  localization  does  not  occur. 

Lower  strain  rate  sensitivity  facilitates  localization.  However,  even  with  the  lower 
strain  rate  sensitivity  m=0.006,  localization  is  prevented  when  higher  work  hardening  is 
used  in  the  simulation  as  in  figure  4-25.  The  deformed  mesh  shows  homogeneous 
deformation  and  other  contour  plots  indicate  no  sign  of  localization. 

Study  of  Kink  Band  Formation  in  NiAl  Single  Crystals 


Kinking  is  a highly  localized  form  of  deformation  that  has  been  observed  in  NiAl 
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during  compression  test  near  the  hard  orientation  (<100>  direction).  When  compressed 
along  the  hard  orientation  the  resolved  shear  stress  along  <00 1>  directions  is  zero,  as  a 
result  glide  occurs  along  other  directions  such  as  <11 1>  or  <110>  (Miracle,  1993). 
However,  if  the  direction  of  compression  is  misaligned  slightly  from  the  <00 1>  direction, 
either  {110}<001>  or  {100}<001>  systems  can  get  activated  depending  on  the  direction 
of  misalignment.  Such  misorientation  has  been  observed  to  favor  kinking.  Experimental 
studies  by  Fraser  et  al.  (1973b)  shows  that  deformation  in  the  kink  band  occurs  on  {110) 
planes  due  to  slip  along  the  one  of  <100>  direction  parallel  to  the  compression  axes. 
However,  all  three  <100>  have  been  observed  experimentally  (Miracle  1993) 

Kinking  has  been  explained  in  terms  of  orientation  softening  that  occurs  due  to  large 
lattice  rotation  (Fraser  et  al.,  1973a,  b;  Winton,  1995).  Once  a slip  system  is  activated  the 
lattice  rotation  increases  the  resolved  shear  stress  in  that  system  making  it  softer  so  that 
activation  of  the  other  possible  systems  are  unlikely.  When  non-uniform  deformation  is 
induced  due  to  speeimen  geometry  or  imperfections,  the  region  where  more  lattice 
rotation  occurs  due  to  higher  strains  becomes  softer  than  the  rest  of  the  specimen  causing 
further  deformation  to  localize  in  this  region. 

When  (110}<001>  slip  system  is  activated  single  slip  occurs,  while  double  slip 
occurs  when  (100}<001>  system  is  activated.  Significant  lattice  rotation  occurs  in  both 
cases.  Numerical  simulations  were  performed  for  both  these  situations  with  compressive 
load  applied  along  directions  misaligned  by  5-10°  from  the  [001]  direction.  Initiation  of 
the  localized  deformation  is  affeeted  by  the  initial  imperfection  curve.  Without  the  initial 
imperfection  curve  on  the  specimen  localized  deformation  forms  only  at  the  middle  of 


specimen. 
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Figure  4-26  shows  the  deformed  mesh  for  double  slip  system  when  slip  system  is 
misaligned  ten  degrees  into  the  {100}  slip  plane  from  the  loading  orientation.  Kink  bands 
are  formed  when  is  73  (MPa)  (figure  4-26-a).  Lower  work  hardening  facilitate  kink 
bands  formation.  Large  lattice  rotations  are  found  at  the  kinked  region  in  figure  4-3  0-a, 
whereas  less  lattice  rotations  occur  in  figure  4-30-b  and  4-30-c.  Intense  resolved  shear 
strain  regions  are  also  found  at  the  kinked  region.  So,  this  result  explains  that  lattice 
rotation  causes  geometric  softening  and  facilitates  kink  band. 

Figure  4-31  shows  stages  of  kink  bands  formation  for  single  slip  along  (110)<001> 
when  the  loading  axis  is  ten  degrees  off  with  respect  to  the  hard  orientation.  Kink  bands 
are  observed  at  the  early  stage  of  deformation  (figure  4-3 1-b).  Contour  plots  of  resolved 
shear  strain  shows  two  intense  narrow  regions  in  figure  4-34-a  even  at  2.3  % nominal 
strain.  These  narrow  regions  propagate  as  the  specimen  deforms  further  (figure  4-34-b, 
figure  4-34-c  and  figure  4-34-d).  More  than  60  degrees  of  lattice  rotation  has  occurred 
along  the  band  during  single  slip  (figure  4-35-d).  This  agrees  well  with  the  experimental 
observation  of  Fraser  et  al.  (1973a)  where  they  have  reported  slip  along  (110}<001>  slip 
system  and  ~60  degrees  lattice  rotation  in  the  kink  band. 

Figure  4-36  shows  the  deformed  mesh  when  single  slip  occurs  during  compression 
along  an  axis  five  degrees  off  with  respect  to  the  hard  orientation.  With  less  misalgnment 
from  the  hard  orientation  than  previous  case  of  ten  degrees  off  from  compression  axis, 
kink  bands  can  be  seen  at  2.3  % nominal  strain  (figure  4-36-a). 

Figure  4-41  shows  load  vs.  elongation  curve  for  five  degrees  misalignment  from  the 
hard  orientation.  Multiple  load  drops  indicate  that  kink  bands  propagate  into  the 
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homogeneous  regions  of  the  specimen  as  the  specimen  deforms  further.  As  a result, 
inhomogeneous  deformation  prevails  along  the  specimen  (figure  4-38-d  and  4-39-d). 

Figure  4-40-d  shows  more  than  80  degrees  of  lattice  rotations  at  the  kinked  regions. 
Both  single  slip  case  and  double  slip  case  show  kink  bands.  Lattice  rotation  causes 
orientation  softening.  Single  slip  case  shows  more  lattice  rotation  in  general  than  in 
double  slip  case. 


Summary  of  this  study 

Deformation  of  NiAl  single  crystals  was  studied  using  finite  element  simulations. 
Simulation  of  deformation  along  directions  slightly  off  from  the  [110]  direction  shows 
that  geometrical  softening  associated  with  lattice  rotation  can  produce  shear  localization 
if  the  rate  sensitivity  is  low  and  the  material  undergoes  very  little  work  hardening. 
However,  since  NiAl  has  much  higher  values  of  rate  sensitivity  and  hardening  than  were 
used  in  the  simulation,  it  is  unlikely  that  such  macroscopic  bands  would  be  observed 
experimentally.  In  the  localized  region,  strain  rate  sensitivity  might  be  lower  than  non- 
localized  region.  This  fact  may  suggest  that  micro-scale  shear  band  can  form  in  the  region 
that  has  more  lattice  rotation  and  lead  to  the  fracture  of  NiAl  single  crystal  (Ebrahimi  and 
Shrivastava,  1997b). 

Another  localization  phenomenon,  kink  bands,  is  observed  during  compression  near 
the  hard  orientation.  Kink  bands  formed  near  the  region  which  have  more  lattice  rotations 
than  other  regions.  Lower  hardening  facilitates  kink  bands  formation. 

From  the  study  of  localized  band  in  NiAl  single  crystal,  we  have  gathered  a valuable 
information.  All  localization  phenomena  compete  with  uniform  deformation.  Hardening, 
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strain  rate  sensitivity,  geometry  and  orientation  etc.  are  crucial  parameters  that  determine 
deformation  status  either  localized  deformation  or  uniform  deformation.  Localized 
deformations  is  revealed  after  abrupt  load  drops  and  sharp  localization  follows  after  the 
load  drop.  Micro  scale  localization  is  observed  in  the  experiment  that  are  similar  to  shear 
localization  (Ebrahimi  and  Shrivastava,  1997a,  b).  This  may  trigger  fracture  in  NiAl 
crystals.  Therefore  localization  phenomena  may  be  a crucial  factor  in  explaining  brittle 
fracture  in  NiAl  single  crystal  at  low  temperatures. 
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Loading 

direction 


[110] 


Figure  4-1  Schematic  representation  of  double  planar  slip  model 


Figure  4-2  Schematic  representation  of  hard  oriented  double  slip  specimen  in 
compression  test 
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Figure  4-3  Schematic  representation  of  hard  oriented  single  slip  specimen  in 
compression  test 
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(a)  (b)  (c) 

Figure  4-4  Plots  of  deformed  mesh  (xs=83  MPa,  tq=35.9  MPa,  Ho=360  MPa, 
m=0.006)  (a)  12  % nominal  strain  (b)  13.5%  nominal  strain  (e)  15%  nominal 
strain 


(a)  (b)  (c) 

Figure  4-5  Plots  of  deformed  mesh  (Xs=83  MPa,  xo=35.9  MPa,  Ho=360  MPa, 
m=0.01)  (a)  12  % nominal  strain  (b)  13.5%  nominal  strain  (c)  15%  nominal  strain 
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(a)  (b)  (c) 

Figure  4-6  Plots  of  deformed  mesh  (Xs=83  MPa,  xo-35.9  MPa,  Ho=360  MPa, 
m=0.02)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15%  nominal  strain 
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Figure  4-7  Contour  plots  of  Cauchy  strain  in  Y-dir.  (Xs=83  MPa,  xq=35.9  MPa, 
Ho=360  MPa,  m=0.006)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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(a)  (b)  (c) 

Figure  4-8  Contour  plots  of  Cauchy  strain  in  Y-dir.  (Xs=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.01)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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Figure  4-9  Contour  plots  of  Cauchy  strain  in  Y-dir.  (Xs=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.02)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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Figure  4-10  Contour  plots  of  Cauchy  stress  in  Y-dir.  (xs=83  MPa,  to=35.9  MPa, 
Ho=360  MPa,  m=0.006)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 


(a)  (b)  (c) 

Figure  4-1 1 Contour  plots  of  Cauchy  stress  in  Y-dir.  (Xs=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.01)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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(a)  (b)  (c) 

Figure  4-12  Contour  plots  of  Cauchy  stress  in  Y-dir.  (Ts=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.02)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 


(a)  (b)  (c) 

Figure  4-13  Contour  plots  of  lattice  rotation  (Xs=83  MPa,  xq=35.9  MPa,  Ho=360 
MPa,  m=0.006)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15%  nominal 
strain 


59 
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Figure  4-14  Contour  plots  of  lattice  rotation  (Xs=83  MPa,  to=35.9  MPa,  Hq=360 
MPa,  m=0.01)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15%  nominal 
strain 
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Figure  4-15  Contour  plots  of  lattice  rotation  (Ts=83  MPa,  xo=35.9  MPa,  Ho=360 
MPa,  m=0.02)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15%  nominal 
strain 
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Figure  4-16  Contour  plots  of  resolved  shear  strain  (ts=83  MPa,  to=35.9  MPa, 
Ho=360  MPa,  m=0.006)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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Figure  4-17  Contour  plots  of  resolved  shear  strain  (Ts=83  MPa,  xq=35.9  MPa, 
Ho=360  MPa,  m=0.01)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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(a)  (b)  (c) 

Figure  4-18  Contour  plots  of  resolved  shear  strain  (Xs=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.02)  (a)  12%  nominal  strain  (b)  13.5%  nominal  strain  (c)  15% 
nominal  strain 
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Figure  4-19  Plots  of  deformed  mesh  with  different  Xs  (strain  rate  sensitivity 
m=0.02,  at  15  % nominal  strain)  (a)  Xs=50  (MPa)  (b)  Xs  = 83  (MPa) 

(c)  Xs  =120  (MPa) 
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(a)  (b)  (c) 

Figure  4-20  Contour  plots  of  Cauchy  strain  in  Y-dir.  with  different  is  (strain  rate 
sensitivity  m=0.02,  at  15  % nominal  strain)  (a)  Xs=50  (MPa)  (b)  Xs  = 83  (MPa) 
(c)  Xs  =120  (MPa) 
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Figure  4-21  Contour  plots  of  Cauchy  stress  in  Y-dir.  with  different  Xs  (strain  rate 
sensitivity  m=0.02,  at  15  % nominal  strain)  (a)  Xs=50  (MPa)  (b)  Xs  = 83  (MPa) 
(c)  Xs  =120  (MPa) 
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Figure  4-22  Contour  plots  of  resolved  shear  strain  with  different  ts  (strain  rate 
sensitivity  m=0.02,  at  15  % nominal  strain)  (a)  Xs=50  (MPa) 

(b)  Ts  = 83  (MPa)  (c)  Xs  =120  (MPa) 
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Figure  4-23  Contour  plots  of  lattice  rotation  with  different  Xs  (strain  rate 
sensitivity  m=0.02,  at  15  % nominal  strain)  (a)  Xs=50  (MPa)  (b)  Xs=  83  (MPa) 
(c)  Xs=120  (MPa) 
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Elongation  (mm) 

Figure  4-24  Load  vs.  elongation  for  3 degrees  off  from  [110]  orientation  with 
different  strain  rate  sensitivity  m 
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Figure  4-25  Plots  using  high  saturated  critical  resolved  shear  stress  with  small 
strain  rate  sensitivity  (Xs=120  MPa,  to=35.9  MPa,  Hq-360  MPa,  m=0.006),  at  15 
% nominal  strain  (a)  Deformed  mesh  (b)  Contour  plot  of  Cauchy  strain  in  Y-dir. 
(c)  Contour  plot  of  Cauchy  stress  in  Y-dir.  (d)  Contour  plot  of  resolved  shear 
strain  (e)  Contour  plot  of  lattice  rotation 
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(a)  (b)  (c) 

Figure  4-26  Plots  of  deformed  mesh  of  double  slip  system  with  different  is,  10 
degrees  off  from  the  hard  orientation  in  compression  test,  at  2.8  % nominal  strain 
(a)  Xs=73  (MPa)  (b)  Xs=83  (MPa)  (c)  Xs=120  (MPa) 


(a)  (b)  (c) 

Figure  4-27  Contour  plots  of  Cauchy  stress  in  Y-dir.  of  double  slip  system  with 
different  Xs,  10  degrees  off  from  the  hard  orientation  in  compression  test,  at  2.8  % 
nominal  strain  (a)  Xs=73  (MPa)  (b)  Xs==83  (MPa)  (c)  Xs=120  (MPa) 
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Figure  4-28  Contour  plots  of  Cauchy  strain  in  Y-dir.  of  double  slip  system  with 
different  Xs,  10  degrees  off  from  the  hard  orientation  in  compression  test,  at  2.8  % 
nominal  strain  (a)  Xs=73  (MPa)  (b)  Xs=83  (MPa)  (c)  Xs=120  (MPa) 


(a)  (b)  (c) 

Figure  4-29  Contour  plots  of  resolved  shear  strain  of  double  slip  system  with 
different  Xs,  10  degrees  off  from  the  hard  orientation  in  compression  test,  at  2.8  % 
nominal  strain  (a)  Xs=73  (MPa)  (b)  Xs=83  (MPa)  (c)  Xs=120  (MPa) 
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(a)  (b)  (c) 

Figure  4-30  Contour  plots  of  lattice  rotation  of  double  slip  system  with  different 
Is,  10  degrees  off  from  the  hard  orientation  in  compression  test,  at  2.8  % nominal 
strain  (a)  Xs=73  (MPa)  (b)  Ts=83  (MPa)  (c)  Xs=120  (MPa) 
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(C)  (d) 

Figure  4-31  Plots  of  deformed  mesh  with  single  slip  system,  10  degrees  off  from 
hard  orientation  in  compression  test  (xs=83  MPa,  xo=35.9  MPa,  Ho=360  MPa, 
m=0.02)  (a)  2.3  % nominal  strain  (b)  3.9  % nominal  strain  (c)  5.5  % nominal 
strain  (d)  7.1  % nominal  strain 
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(c)  (d) 

Figure  4-32  Contour  plots  of  Cauchy  stress  in  Y-dir.  with  single  slip  system,  10 
degrees  off  from  hard  orientation  in  compression  test  (Ts=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)  3.9  % nominal  strain  (c)  5.5  % 
nominal  strain  (d)  7.1  % nominal  strain 
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(c)  (d) 

Figure  4-33  Contour  plots  of  Cauchy  strain  in  Y-dir.  with  single  slip  system,  10 
degrees  off  from  hard  orientation  in  compression  test  (ts=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)  3.9  % nominal  strain  (c)  5.5  % 
nominal  strain  (d)  7.1  % nominal  strain 
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(c)  (d) 

Figure  4-34  Contour  plots  of  resolved  shear  strain  with  single  slip  system,  10 
degrees  off  from  hard  orientation  in  compression  test  (xs=83  MPa,  xo=35.9  MPa, 
Ho=360  MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)  3.9  % nominal  strain  (c)  5.5  % 
nominal  strain  (d)  7.1  % nominal  strain 
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(C)  (d) 

Figure  4-35  Contour  plots  of  lattice  rotation  with  single  slip  system,  10  degrees 
off  from  hard  orientation  in  compression  test  (Xs=83  MPa,  To=35.9  MPa,  Ho=360 
MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)  3.9  % nominal  strain  (c)  5.5  % 
nominal  strain  (d)  7.1  % nominal  strain 
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Figure  4-36  Plots  of  deformed  mesh  with  single  slip  system,  5 degrees  off  from 
the  hard  orientation  in  compression  test  (Xs=83  MPa,  tq  =35.9  MPa,  Ho=360  MPa, 
m=0.02)  (a)  2.3  % nominal  strain  (b)3.9  % nominal  strain  (c)5.5  % nominal  strain 
(d)  7.1  % nominal  strain 
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Figure  4-37  Contour  plots  of  Cauchy  stress  in  Y-dir.  with  single  slip  system,  5 
degrees  off  from  the  hard  orientation  in  compression  test  (Xs=83  MPa,  tq  =35.9 
MPa,  Ho=360  MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)3.9  % nominal  strain 
(c)5.5  % nominal  strain  (d)  7.1  % nominal  strain 
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(c)  (d) 

Figure  4-38  Contour  plots  of  Cauchy  strain  in  Y-dir.  with  single  slip  system,  5 
degrees  off  from  the  hard  orientation  in  compression  test  (Xs=83  MPa,  tq  =35.9 
MPa,  Ho=360  MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)3.9  % nominal  strain 
(c)5.5  % nominal  strain  (d)  7.1  % nominal  strain 
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(c)  (d) 

Figure  4-39  Contour  plots  of  resolved  shear  strain  with  single  slip  system,  5 
degrees  off  from  the  hard  orientation  in  compression  test  (Xs=83  MPa,  to  =35.9 
MPa,  Ho=360  MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)3.9  % nominal  strain 
(c)5.5  % nominal  strain  (d)  7.1  % nominal  strain 
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Figure  4-40  Contour  plots  of  lattice  rotation  with  single  slip  system,  5 degrees  off 
from  the  hard  orientation  in  compression  test  (Xs=83  MPa,  xo  =35.9  MPa,  Hq=360 
MPa,  m=0.02)  (a)  2.3  % nominal  strain  (b)3.9  % nominal  strain  (c)5.5  % nominal 
strain  (d)  7.1  % nominal  strain 
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Elongation  (mm) 

Figure  4-41  Load  vs.  elongation  curve  for  5 degrees  off  from  the  compression  axis 


CHAPTER  5 

HARDENING  CHARACTERISTICS  OF  NIAL  SINGLE  CRYSTALS 

Finite  Element  Model  for  Hardening  Problem 

We  used  following  specimen  model  for  the  simulation,  where  dimension  is,  15(mm) 
long,  1.4(mm)  wide  and  2.1  (mm)  thick.  This  is  the  same  dimension  used  in  experiment  to 
test  mechanical  properties  of  NiAl  single  crystal.  The  actual  specimen  includes  two 
flanges  where  the  outer  flanges  are  used  to  hold  the  specimen  in  the  tensile  testing 
machine.  But  for  the  finite  element  analysis  only  the  inner  flanges  are  included.  Loading 
has  been  imposed  by  a prescribed  constant  displacement  rate.  Strain  rate  a =0.001  s ' was 
used  for  the  simulation.  All  nodes  at  the  top  face  of  specimen  were  specified  to  have  the 
same  displacement  in  the  loading  direction.  To  include  secondary  slip  systems 
(110}<001>  in  NiAl,  three-dimensional  model  was  adopted.  Incompatible  element  for 
three-dimensional  geometry  (C3D8I)  was  used  for  the  analysis.  1152  elements  were  used 
for  the  simulation. 


Table  5-1  Simulation  data  used  for  NiAl  single  crystals  for  hardening  characteristics 
problem  at  400°C 


Elastic  bulk 
Modulus  K 
(MPa) 

Shear  Modulus 
G (MPa) 

Poisson’s  ratio 

Imperfection 

Strain  rate 
sensitivity 

161419.2 

65159.79 

0.3215 

No 

imperfection 

0.04 
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The  material  data  used  in  this  simulation  is  as  in  table  5-1.  Shear  modulus  G and 
bulk  modulus  K are  adopted  from  Miracle  (1993). 

Loading  along  [557]  direction  was  tested  to  obtain  hardening  parameters  such  as 
saturated  critical  resolved  shear  stress,  initial  hardening  rate  for  the  simulation.  This 
orientation  is  selected  because  only  single  slip  occurs  along  this  loading  direction.  The 
plane  of  deformation  (110)  contains  burgers  vector,  slip  plane  normal  vector,  and  tensile 
axis  in  either  parallel  or  perpendicular  to  the  thickness  of  the  sample  cross  section.  Axis 
of  rotation  is  normal  to  the  deformation  plane  (1 10).  As  a consequence  of  the  geometry  of 
the  slip  systems  in  this  loading  direction,  simulation  can  be  performed  by  the  assumption 
of  planar  model.  Slip  occurs  along  {110}<001>  slip  system.  Figure  5-1  shows  the 
location  of  slip  system.  Boundary  conditions  are  same  as  in  the  [110]  orientation  case. 
The  same  element  type  and  loading  as  in  [110]  orientation  were  used.  For  [557]  loading 
direction,  slip  system  is  [001]  (110)  and  plane  of  deformation  is  (1 10)  plane. 

When  the  specimen  is  pulled  along  [110]  orientation  in  NiAl  single  crystals,  we 
might  consider  {110}<001>  slip  systems  as  a secondary  slip  systems.  However,  {110} 
slip  planes  are  not  perpendicular  to  the  plane  of  deformation  (001).  As  a result,  these  slip 
systems  can  not  be  modeled  as  a planar  model.  Three-dimensional  geometry  should  be 
used  to  include  all  the  slip  systems.  Figure  5-2  shows  schematic  representation  of  three- 
dimensional  model. 


Determination  of  Constitutive  Parameters 

The  kinematics  of  single  crystal  deformation  and  the  constitutive  models  based  on 


Schmid’s  law  are  now  well  established  and  have  been  used  to  simulate  deformation  of 
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FCC  and  BCC  single  crystals  (Peirce  et  al.,  1983,  Deve  et  al.,  1988).  Such  models  are 
capable  of  simulating  experimentally  observed  modes  of  deformation  in  single  crystals. 
However,  the  accuracy  of  the  simulated  results  is  limited  by  the  accuracy  with  which  the 
constitutive  parameters  can  be  determined.  The  deformation  patterns  observed 
experimentally  in  single  crystals  of  different  materials  vary  due  to  the  differences  in 
constitutive  parameters  and  due  to  differences  in  the  operative  slips  systems.  The 
parameters  that  most  significantly  affect  the  deformation  mode  include  the  rate  sensitivity 
parameter  (m),  the  latent  hardening  (q)  and  the  parameters  that  describe  the  hardening 
curve  (x^  vs.  y)  of  the  material  such  as  Xq,  x^  and  Iiq.  Rate  sensitivity  parameter  m can  be 
determined  experimentally.  The  value  of  m varies  with  temperature  and  impurities/ 
additives. 

Experimental  evidence  (Winton,  1995)  suggests  that  the  initial  critical  resolved  shear 
stress  x^is  the  same  for  both  the  {110}<001>  and  the  {100}<001>  slip  systems.  Loading 
directions  that  activate  {110}<001>  slip  system  such  as  [557]  results  in  single  slip.  This 
provides  an  opportunity  to  experimentally  determine  the  hardening  curve  for  this  slip 
system.  At  intermediate  temperatures  (400-700K)  extremely  high  tensile  elongation  (100- 
350%)  has  been  obtained  for  this  orientation  (Levit  et  al.  1996).  The  load  versus 
elongation  curve  obtained  for  [557]  orientation  increases  to  a peak  and  then  decreases 
gradually  to  a minimum  before  increasing  again  (figure  5-3).  The  drop  in  load  after  the 
peak  load  is  due  to  localized  deformation  that  results  in  a neck.  However,  the  neck 
spreads  after  the  initial  localization.  This  behavior  has  been  experimentally  observed 
(Levit  et  al.  1996)  and  explained  in  terms  of  the  orientation  hardening  which  results  from 
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the  large  amount  of  lattice  rotation  that  occurs  during  single  slip.  Numerical  simulation 
based  on  our  finite  element  model  confirms  this  phenomenon.  The  load  versus 
deformation  curve  obtained  numerically  has  identical  shape. 

Figure  5-5  shovv^s  the  contour  plots  of  strain  in  y direction  at  different  stages  that 
indicate  nearly  uniform  deformation  along  the  gauge  length. 

Figure  5-6  shows  the  deformed  specimen  at  different  stages  of  deformation  with 
contour  plots  of  lattice  rotation.  The  direction  of  the  lattice  rotation  is  such  that  the 
Schmid  factor  decreases.  As  a result,  a higher  tensile  load  is  required  to  produce  the 
resolved  shear  stress  necessary  for  slip  on  the  active  slip  plane.  The  resulting  increase  in 
yield  stress  along  the  tensile  direction  referred  to  as  orientation  hardening  prevents  further 
deformation  at  the  neck  causing  the  neck  to  spread.  Determination  of  the  hardening  curve 
(x^  vs.  y)  from  the  load  versus  elongation  curve  is  difficult  due  to  the  large  amount  of 
lattice  rotation  accompanying  the  deformation  that  changes  the  Schmid  factor 
continuously  during  deformation.  Furthermore,  one  has  to  account  for  strain  localization 
to  accurately  determine  the  true  stress  and  true  strain  developed  in  the  specimen  during 
the  deformation.  Levit  et  al.  (1996)  have  experimentally  measured  strain  localization  and 
determined  the  lattice  rotation  using  electron  back  scattering  methods  during  tensile 
elongation  along  the  [557].  Based  on  these  results  they  have  calculated  the  hardening 
curve  for  the  {110}<001>  slip  system.  The  curve  thus  obtained  exhibits  monotonic 
hardening  followed  by  a saturation  critical  resolved  shear  stress  at  high  strains  and  has  a 
shape  that  confirms  well  with  the  shape  of  the  hardening  curve  in  equation  (2.41). 
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Numerical  simulation  of  the  experiment  using  this  hardening  curve  yielded  a load  versus 
elongation  curve  whose  shape  matches  very  well  with  the  experimental  results. 

Tensile  elongation  along  the  [110]  direction  activates  the  {100}<001>  slip  system. 
However,  unlike  in  the  previous  case,  elongation  in  this  direction  produces  double  slip. 
Both  the  (100)  and  (010)  planes  become  active  simultaneously  since  the  Schmid  factor 
for  both  these  planes  are  identical.  In  addition,  no  lattice  rotation  occurs  because  these 
planes  are  located  symmetrically  about  the  tensile  axes  and  identical  amount  of  slip 
occurs  in  both  slip  planes.  The  load  versus  elongation  curve  obtained  experimentally 
(Levit  et  al.,  1996)  seems  to  suggest  considerable  work  hardening.  Determining  the 
hardening  curve  however  is  not  straightforward  due  to  uncertainty  about  the  contribution 
of  latent  hardening  to  the  total  hardening  observed.  Simulation  of  the  elongation  along 
[110]  using  the  hardening  curve  obtained  earlier  for  {110}<001>  slip  system  yields  poor 
results  at  large  strains  as  seen  in  figure  5-7.  The  numerically  obtained  load-elongation 
curve  is  close  to  experimental  curve  initially  and  correctly  predicts  the  initial  peak 
followed  by  a load  drop.  However,  the  load  increases  at  higher  strains  for  the 
experimental  specimen,  while  it  drops  due  to  a sharp  neck  for  the  numerical  simulation. 
This  suggests  that  there  are  considerable  work  hardening  at  large  strains  for  the 
{100}<001>  slip  system  and  that  the  hardening  curve  for  this  slip  system  does  not  have  a 
plateau  as  assumed  in  equation  (2.41). 

Latent  hardening  is  normally  determined  by  measuring  overshoot.  Double  slip 
happens  only  when  loading  direction  is  such  that  (001)  and  (010)  are  active  slip  systems. 
However,  the  angle  between  them  is  90°  therefore  (001)  and  (010)  systems  become  active 
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simultaneously.  Two  slip  systems  have  a same  resolved  shear  stress  regardless  of  lattice 
rotation.  So,  Latent  hardening  is  difficult  to  determine  experimentally  in  this  orientation. 

Modified  Hardening  Law  for  NiAl  Single  Crystal  Type 

To  explain  the  high  hardening,  we  assumed  two  separate  hardening  moduli  on  each 
slip  system  such  as  A(/„„,)and  which  is  similar  to  Nakada  and  Keh’s  model  (1966) 
and  Franciosi's  model  (1983). 

We  assumed  secondary  slip  may  activate  at  large  plastic  deformations  and  this 
activation  of  secondary  slip  systems  helps  to  raise  the  hardening  at  large  strains  and 
prevents  necking.  Based  on  this  physical  observation  and  our  assumptions  we  draw  a 
hardening  rule  which  is  appropriate  for  multislip  condition  in  NiAl  single  crystals. 

NiAl  single  crystals  mainly  deform  by  two  {100}<001>  slip  systems  for  tensile  load 
along  [110]  orientation  at  the  beginning  of  deformations.  However,  slip  trace  analysis 
showed  that  the  cross  slip  of  <100>  dislocations  to  {Okl}  slip  planes  in  addition  to  slips  in 
{100}  slip  planes  (Ebrahimi,  F.  et  al.,  1996;  Ebrahimi,  F.  and  Shrivastava,  S.,  1997a). 
Therefore  we  may  assume  the  activation  of  cross  slip  of  <100>  dislocations  in  {1 10}  slip 
planes  at  large  strains.  We  have  used  a notation  of  secondary  slip  system  in  our  hardening 
representation  instead  of  a notation  of  cross  slip  of  <100>  dislocations  in  {110}  slip 
planes. 

Ebrahimi  and  Shrivastava  (1997a,  b)  suggested  that  the  cross  slip  of  screw 
dislocations  in  {011}  slip  planes  is  responsible  for  strain  hardening  in  <11 0>  orientation 
of  NiAl  single  crystals.  The  rate  of  hardening  increases  due  to  secondary  slip  activation. 
Potentially  active  slip  systems  in  [110]  orientation  are  shown  in  figure  5-8.  Instantaneous 
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hardening  modulus  [h]  is  regarded  as  an  accumulation  of  each  slip  system’s  resolved 
shear  strains.  So,  hardening  modulus  of  {100}  slip  planes  is  a function  of  resolved  shear 
strains  of  {100}  slip  planes  and  hardening  modulus  of  {110}  slip  planes  is  a function  of 
resolved  shear  strains  of  {110}  slip  planes. 

There  are  four  latent  hardening  ratios  in  our  assumed  hardening  model.  Latent 
hardening  ratio  in  {100}  planes  was  called  latent  hardening  ratio  in  {110}  planes 
was  called  latent  hardening  in  {100}  planes  due  to  {110}  planes  was  called  q^^  and 
latent  hardening  in  {110}  planes  due  to  {100}  planes  was  called  q^^ . Hardening  modulus 
hi  is  a function  of  resolved  shear  strains  in  {100}  slip  plane,  h,  =h(Y(iooj).  hj  is  a 
function  of  resolved  shear  strains  in  {110}  slip  plane,  h2  = h(Y(,,oj).  Incremental 
hardening  of  slip  systems  is  represented  as  follows. 
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Unusually  high  hardening  at  large  strain  means  that  multiple  slips  may  be  occurring 
at  large  strain.  {100}<010>  slip  systems  have  a higher  Schmid’s  factor  than  {1 10}<010> 
slip  systems  in  [110]  orientation.  So,  we  assigned  {100}<010>  slip  systems  as  primary 
slip  systems  in  [110]  orientation  and  {110}<010>  slip  systems  were  regarded  as 
secondary  slip  systems.  To  activate  secondary  slip  systems  ({110}<010>),  these 
secondary  slip  systems  should  harden  less  than  the  primary  slip  systems  ({100}<010>). 
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At  the  next  section,  we  will  look  at  the  hardening  characteristics  especially  latent 
hardening  ratios  based  on  the  experimental  load  vs.  elongation  curve. 


Determination  of  Condition  for  Slip  System’s  Activity 

Ratio  of  resolved  shear  stress  in  primary  slip  system  to  resolved  shear  stress  in 
secondary  slip  system  is  always  constant  number  because  of  no  lattice  rotation  in  [110] 


onentation. 


r<P) 


-(s) 


= K > 1 , K=constant 


(5.2) 


If  the  ratio  of  critical  resolved  shear  stress  in  primary  slip  system  to  critical  resolved  shear 
stress  in  secondary  slip  system  is  equal  to  K,  secondary  slip  systems  are  also  active. 


tt  = K 

r(s) 


(5.3) 


For  all  slip  systems  to  stay  active  together,  constant  ratio  between  and  is 
required  at  all  deformation  stages.  Here  we  define  stage  I as  before  the  secondary  slip 
system  activation  and  stage  II  as  after  secondary  slip  system  activation.  For  our  model,  K 
can  be  obtained  by  calculating  resolved  shear  stress  for  each  slip  system.  Schmid  factor 
SF  is  defined  as  SF=cosa  cosO.  Here  a is  the  angle  between  loading  direction  and  slip 
plane  normal  direction  and  <t>  is  the  angle  between  loading  direction  and  slip  direction. 


SFp 


J 
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SF,= 
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V2V2  ^f2 


1 

2V2 


(5.4) 


Here  SFp  is  the  Schmid  factor  for  primary  slip  system  {100}<001>  and  SF^  is  the 
Schmid  factor  for  secondary  slip  system  {110}<010>.  The  ratio  of  SFp  to  SF^.  is  as 


follows. 
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?!p 

SF, 


= K = ^/2 


(5.5) 


Stage  I rCase  D 

At  this  stage,  only  the  primary  slip  systems  are  active  so  resolved  shear  strain  in  the 
secondary  slip  systems  are  almost  zero.  Total  shear  is  almost  equal  to  the  slip  in  the 
primary  slip  systems  ({100}<010>). 


^(Y,,Y2,y3,Y4,Y5,Y6)  = 't(Yi,Y2)  (5.6) 

Yi,  Y2  are  the  resolved  shear  strains  for  the  {100}  slip  planes  and  73,74,75,  7^  are  the 
resolved  shear  strains  for  {110}  slip  planes. 

Changes  in  critical  resolved  shear  stresses  in  both  primary  and  secondary  slip  systems  are 
expressed  as  follows. 

dx*'°®'  = h,d7,  + q,,h,d72  = qaa^idy,  + h,d72  = dx<*^  = dx^'>  (5.7) 

= (qbahjdY,  + qb^h.dY^)  = dx<'>  = dx</>  = dx^'>  = dx'®^  (5.8) 

Integration  of  the  incremental  critical  resolved  shear  stress  in  primary  slip  system  gives 
following  formulas. 


= jh,d7+  j(q,,h,)d7  + x‘,'’> 


(5.9) 


where  7,  = 72  = 7*'°°*  ,d7,  = dY2  = d7 


We  can  assume  the  total  resolved  shear  strains  in  {100}  slip  planes  as  7i  + 72  = 27 
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=(l  + qaa)  J hoSech'(— )dY  + T[,P>  (5.11) 

0 "^s  ”^0 

T _T  7h 

=(l  + qaa)(  \ °)tanh(^ ) + t[,p>  (5.12) 

Integration  of  incremental  critical  resolved  shear  stress  in  secondary  slip  system  with  the 
same  assumptions  gives  following  formulas  for  secondary  slip  system. 
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In  this  stage  deformation  occurs  by  slips  in  {100}  slip  planes.  Secondary  slips  are 
assumed  to  be  activated  only  at  the  end  of  stage  I.  During  stage  I hardening  of  primary 
slip  systems  should  maintain  following  relations. 


(100) 


,(110) 


<K 


(5.16) 


At  the  end  of  Stage  I 

We  assumed  that  the  secondary  slip  systems,  which  are  (110}<001>,  would  activate 
at  the  end  point  of  stage  I. 

Ignoring  small  resolved  shear  strain  in  {110}  slip  planes  the  following  formulas  need 
be  satisfied  to  activate  secondary  slip  systems.  From  these  formulas  we  can  predict 
possibility  of  secondary  slip  system’s  activation. 
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(5.17) 


The  latent  hardening  ratio  are  the  variables  that  determine  the  activation  of 

secondary  slip  systems.  As  soon  as  the  ratio  between  two  slip  systems  reach  the  value  K 
the  secondary  slip  systems  will  activate. 

Stage  II  (Case  II.  Case  III,  Case  IVl 

Both  (100}<001>  and  {110}<001>  slip  systems  are  assumed  to  be  active  at  the 
beginning  of  this  stage.  Hardening  of  each  slip  system  depends  on  deformation  in  every 
slip  system  in  the  crystals.  According  to  the  latent  hardening  parameters  in  the  hardening 
matrix,  deformation  may  be  classified  as  3 cases  at  large  deformation. 

Case  II)  {110}<001>  slip  systems  harden  much  less  than  {100}<001>  slip  systems,  so 
{110}<001>  slip  systems  are  active  and  {100}<001>  slip  systems  are  no  longer  active 


dxr(Y),.. 


(5.18) 


Case  III)  {I10}<001>  slip  systems  harden  exactly  the  same  as  (I00}<001>  slip  systems 
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Case  IV)  {1 10} <001  > slip  systems  harden  more  than  {100)<001>  slip  systems 


xr(y)_dxrXy)  p. 
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(5.20) 


From  the  assumed  hardening  modulus,  hardening  rate  and  hardening  of  each  slip  system 


may  be  expressed  as  follows. 
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= [h(y,oo)  + qaah(Y,oo)]dy,oo  + qab[h(y„o)  + h(yno)  + h(y„o)  + h(y„o)]dy„o 

= (i  + qaa)h(y,oo)dy,oo  +4q,bh(yno)dy„o  (5.21) 
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If  we  define  T,  and  T2  as  follows  T,  = Jh(y)dy,oo  and  T2 

0 


Jh(y)dy 


0 


110 


critical  resolved  shear  stress  of  each  slip  system  might  be  expressed  as  follows. 
xl’’'=(l  + qaa)T.+4q,bT2+x<'’^ 
xl^’=2qbJ.+(l  + 3qbb)T2+T<^> 


(5.25) 

(5.26) 


Simulation 

From  our  discussion  in  previous  section  on  the  hardening  formulas,  we  can  identify 
deformation  process  as  4 cases.  We  called  stage  I as  case  I and  3 cases  in  stage  II  are 
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called  as  case  II,  case  III  and  case  IV  respectively.  Eaeh  case  is  simulated  and  compared 
to  show  the  different  deformation  process.  Activation  of  slip  system  in  {110}  slip  planes 
has  a great  effect  on  the  hardening  at  large  strains.  Also,  activation  point  of  secondary 
slip  system  has  an  effect  on  whether  specimen  shows  necking  or  neck  propagation  in  our 
simulation  results. 

Case  I (Stage  D 

Like  we  discussed  previously  only  (100}<001>  slip  systems  are  active  in  this  case  in 
our  analytical  prediction.  However  due  to  the  effect  of  rate  sensitivity  we  can  expect 
small  amount  of  shear  in  the  secondary  slip  systems.  The  condition  for  this  situation  may 
be  predicted  by  using  ratio  of  hardening  in  {110}  slip  system  and  {100}  slip  system  as  in 
equation  (5.17).  The  latent  hardening  ratios  q^^  used  in  this  case  satisfy  condition  in 
equation  (5.16).  Even  though  there  are  6 potential  slip  systems,  deformed  specimen 
shows  different  shapes  due  to  the  effect  of  latent  hardening  ratios  q^b,  qab-  These  latent 
hardening  ratios  have  an  effect  on  the  hardening  after  activation  of  secondary  slip  system. 
As  a results  different  combinations  of  latent  hardening  ratios  can  show  the  different 
deformation  status. 

As  a first  example,  in  figure  5-10,  qbb=  qab=  case  shows  almost  zero 

resolved  shear  strain  in  the  secondary  slip  systems  so  it  looks  same  as  that  of  2- 
dimensional  model  with  two  slip  systems.  Figure  5-9  shows  critical  resolved  shear  stress 
on  each  slip  system.  Amounts  of  critical  resolved  shear  stress  in  (110}  slip  plane  are  close 
to  those  of  in  {100}  slip  plane.  So,  secondary  slip  systems  are  difficult  to  activate  in  this 
circumstance.  Necking  happens  at  the  top  and  bottom  of  gauge  length  and  resolved  shear 
strain  in  primary  slip  system  shows  concentrated  regions  in  figure  5-21. 
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The  following  latent  hardening  ratios,  q^=lA,  qbb=l-0,  qab=l-9  qba=0-7,  show 
different  deformation  status.  Activation  of  secondary  slip  can  not  happen  according  to  the 
analytical  prediction  in  equation  (5.16).  However,  due  to  the  rate  sensitivity  effect 
resolved  shear  strain  has  a small  value  at  large  strain  in  figure  5-12.  These  small  resolved 
shear  strain  in  the  secondary  slip  systems  cause  the  high  hardening  rate  at  large  strain  due 
to  the  combination  of  latent  hardening  ratios  qbb=10,  qab=T9  and  prevents  necking  in  the 
specimen. 

Figure  5-11  shows  critical  resolved  shear  stress  for  each  slip  systems.  High 
hardening  rate  owing  to  the  activation  of  secondary  slip  systems  at  large  strain  cause  the 
critical  resolved  shear  stress  to  increase  in  the  simulation. 

Deformations  in  this  case  show  homogeneous  pattern.  Figure  5-23-a  shows  the 
deformed  specimen  at  40  % nominal  strain.  Local  regions  show  tendency  of  slight 
localization  in  the  early  stage  of  deformation.  However,  as  the  secondary  slip  system  is 
activated  neck  propagation  occurs  rather  than  localized  necking.  Resolved  shear  strains 
are  accumulated  along  the  specimen  homogeneously  (figure  5-24). 

As  a last  example  in  case  I,  latent  hardening  ratios,  qbb=qab=10,q^a=1.4,qb3=0.6,  are 
selected  to  show  the  different  deformation  processes  compared  to  the  previous  two  cases. 
Same  as  in  the  second  example,  resolved  shear  strain  in  figure  5-14  shows  some  values 
due  to  the  rate  sensitivity  effect.  However  combination  of  qbb=qab=10  does  not  provide 
the  high  hardening  rate.  The  latent  hardening  qab  should  have  large  value  to  show  higher 
hardening  rate  at  large  strain.  As  a result,  severely  necked  mesh  is  observed  at  30  % 
nominal  strain  in  figure  5-26-a. 

Case  11  tStage  Tit 
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This  case  is  represented  by  such  assumption.  After  the  activation  of  (110}<100> 
secondary  slip  systems  we  assumed  that  {110}<001>  slip  systems  harden  much  less  than 
{100}<001>  slip  systems  so  at  large  strain  regime  secondary  slip  system  {110}<001>  is 
activated  and  primary  slip  system  {100}<001>  is  gradually  inactivated  after  all. 

The  following  formula  assumes  no  resolved  shear  strain  in  {100}  slip  plane  makes  it 
possible  to  have  a condition  for  this  case  using  ratio  of  rate  of  hardening  in  {110}  slip 
system  and  {100}  slip  system. 

dxr(Y)_  4q,,h(Y<-°>)dY^‘’°>  _ 

dTl’'°>(Y)  (l  + 3q,Jh(y(”°^)dy<"'>^  ' ^ 

The  combination  of  latent  hardening  ratios  is  selected  for  the  simulation.  Two  latent 
hardening  ratio  q^=lA,  qta=0.2  make  possible  its  secondary  slip  systems  to  activate  from 
analytical  prediction  in  equation  (5.17)  and  after  activation  of  secondary  slip  systems  the 
other  latent  hardening  ratio  combinations  of  qab=l-6  qbb=l-0  satisfy  the  above  relations. 
Based  on  assumptions  resolved  shear  strain  in  {100}<011>  primary  slip  systems  would 
not  increase  at  large  deformations  however  due  to  the  rate  sensitivity  effect  primary  slip 
systems  still  show  the  activation  of  systems.  Figure  5-16  shows  this  trend.  Resolved  shear 
strain  in  secondary  slip  systems  show  a steeper  trend  than  one  in  primary  slip  systems  at 
large  strain  like  we  predicted  in  analytical  formula. 

Due  to  the  early  activation  of  secondary  slip  systems,  High  hardening  rate  can  not  be 
expected  at  large  strain  so  we  can  observe  the  concentrated  strain  regions  at  the  upper  and 
lower  of  gauge  length  (Figure  5-29). 

Case  m f Stage  ID 
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Both  primary  slip  systems  and  secondary  slip  systems  will  have  same  hardening  rate 
after  activation  of  secondary  slip  systems.  The  ratio  of  critical  resolved  shear  stress  in 
primary  slip  system  to  critical  resolved  shear  stress  in  secondary  slip  system  is  equal  to 
K.  K is  ratio  of  resolved  shear  stress  in  primary  slip  system  to  resolved  shear  stress  in 
secondary  slip  system. 

Case  IV  (Stage  ID 

In  this  case  (110}<001>  slip  systems  harden  more  than  {100}<001>  slip  systems 
after  activation  of  secondary  slip  systems  due  to  the  latent  hardening  combinations  of 
q3b=1.2,  qbb=1.0.  Secondary  slip  systems  are  difficult  to  activate. 

The  following  formula  make  it  possible  to  have  a condition  for  this  case  using  ratio 
of  rate  of  hardening  in  {110}  slip  system  and  {100}  slip  system. 

dtr  (Uq  Jh(Y”>)dT»'“'»  H-4q.,h(r"“>)dr<""»  . 

dT»'">  2q^.h(r«')dr<'»>+(l  + 3q^)h(r‘"“>)dT"»' 

The  first  terms  of  numerator  and  denominator  of  equation  (5.28)  satisfies  equation 
(5.17)  which  is  a condition  for  activation  of  secondary  slip  systems  with  q^=\A,  qta=0.2. 
The  latent  hardening  combinations  of  qab=l-2,  qaa=l-4,  qbb^l  O^  ftba=0-2  may  show  this 
case.  Even  though  we  expect  a small  amount  of  resolved  shear  strain  of  {1 10}  <001  > slip 
systems  large  amounts  of  strain  are  observed  in  secondary  slip  systems  due  to  the  effect 
of  rate  sensitivity  (Figure  5-18).  As  a results  we  expect  lower  hardening  rate  at  large 
strains.  Resolved  shear  strain  in  primary  slip  systems  show  a steeper  trend  than  one  in 
secondary  slip  systems  at  large  strain  like  we  predicted  in  our  analytical  formula. 
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Dislocation  Interactions 

We  performed  simulations  under  the  assumptions  that  activation  of  secondary  slip 
systems  adds  more  hardening  to  the  whole  system.  This  hardening  mechanism  may  he 
explained  as  follows. 

Double  glides  of  {100}<001>  slip  systems  occur  simultaneously  due  to  the  same 
Schmid  factor  for  both  slip  systems  and  interact  each  other.  As  a result  deformation 
shows  high  hardening  at  the  beginning  of  deformation.  However,  as  we  have  shown  in 
our  simulations,  hardening  between  primary  slip  systems  is  not  enough  to  show 
propagation  in  the  simulation. 

Glides  in  secondary  slip  systems  {110}<001>  may  not  contribute  to  the  plastic 
deformations  at  the  beginning  of  deformation  due  to  the  low  Schmid  factor. 

Crimp  et  al.  (1993)  and  Ebrahimi  and  Shrivastava  (1997a)  reported  <100>  or  <110> 
dislocations  slipping  in  {110}  slip  planes  in  [101]  orientation  through  the  slip  trace 
analysis.  So  we  may  include  secondary  slip  systems  into  our  hardening  model. 

From  the  previous  study  (Kocks  and  Brown,  1966;  Franciosi  et  al.,  1980),  we 
understand  dislocation  interactions  between  non-planar  slip  systems  are  stronger  than  that 
of  between  coplanar  slip  systems.  Dislocation  interactions  in  (100)[010]  and  (010)[100j 
should  show  strong  interactions  and  pile-ups  at  barrier  however  these  are  not  enough 
dislocation  interactions  as  we  pointed  out  in  our  simulations.  So  we  may  consider  another 
hardening  mechanism  in  addition  to  the  dislocation  pile-ups.  The  dislocation  piercing  the 
active  slip  planes  is  often  called  a dislocation  forest. 

The  primary  slip  systems  are  already  main  active  slip  systems  from  the  beginning 
due  to  the  0.5  Schmid  factor  and  (1 10}<010>  slip  systems  will  activate  later.  So,  we  may 
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assume  the  primary  slip  systems  are  {001}<100>  and  forest  slip  systems  are  {1 10} <01 0> 
slip  systems.  The  latent  hardening  ratio  defined  as  hardening  in  primary  system  {a} 
due  to  the  secondary  slip  system  {b}  may  have  higher  value  than  defined  as  hardening 
in  secondary  system  {b}  due  to  the  primary  slip  system  {a}.  The  secondary  slip  system 
{b}  may  experience  difficulty  in  piercing  active  primary  slip  system  {a}  so  q^,,  may  have 
larger  number  whereas  qt^  may  have  smaller  number. 

The  forest  dislocation  may  be  explained  as  follows  using  <100>  burgers  vectors.  If 
we  assume  [100]  burgers  vector  in  primary  slip  plane  {100}  interact  with  the  [010] 
burgers  vector  in  secondary  slip  system  (forest  slip  system)  two  dislocations  may  undergo 
the  following  reactions. 

[100]+[010]=[110]  (5.29) 

They  react  to  form  a product  segment  lying  in  primary  slip  plane  {100}  and  may 
glide  in  the  primary  slip  planes.  However,  reactions  are  energetically  stable,  they  may  not 
glide  in  the  primary  slip  systems  and  encountering  point  between  two  dislocations  may 
act  as  a pinning  point  of  the  two  dislocations.  So,  they  impede  the  glide  of  primary  slip 
systems  and  forest  slip  systems. 

From  this  forest  hardening  mechanisms,  we  may  conclude  that  a strong  latent 
hardening  occurs  when  the  secondary  slip  systems  meet  the  primary  slip  systems. 

Summary  of  this  Study 

We  have  used  our  proposed  hardening  law  to  understand  the  hardening 
characteristics  of  NiAl  single  crystals.  We  divided  deformation  status  into  4 categories 
according  to  which  slip  system  is  active.  Latent  hardening  ratio  q^^  q^^  determine  the 
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activation  point  of  secondary  slip  systems  and  q^b  have  an  effect  on  the  hardening 
characteristics  after  activation  of  secondary  slip  systems.  Due  to  the  rate  sensitivity  effect 
lower  value  of  satisfy  equation  (5.17)  causes  early  start  of  secondary  slip  system  and 
does  not  contribute  to  the  expected  high  hardening  rate  at  large  strain.  In  figure  5-19, 
different  load  shapes  observed  according  to  the  different  combinations  of  latent  hardening 
ratios.  Case  I-b  shows  a quite  similar  result  with  experimental  results  (Levit  et  al.,  1996). 
According  to  our  formula  equation  (5.17)  for  the  activation  of  secondary  system  Case  I-b 
does  not  satisfy  this  condition.  However,  owing  to  the  rate  sensitivity  effect,  moderate 
value  of  q^a  causes  small  resolved  shear  strain  of  secondary  slip  system  after  necking 
occurs  and  does  contribute  to  the  expecting  high  hardening  rate  at  large  strain  due  to  high 
qab  value. 
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Figure  5-1  Schematic  representation  of  [557]  oriented  specimen 
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Figure  5-3  Load  vs.  elongation  for  [557]  orientation 


Figure  5-4  Critical  resolved  shear  stress  vs.  resolved  shear  strain 
for  the  simulation  (x^  =38  MPa,  x^^  =26  MPa,  =1 10  MPa) 
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Figure  5-5  Contour  plots  of  strain  in  Y-dir.  for[557]  orientation  (a)  16%  nominal  strain 
(b)  32  % nominal  strain  (c)  48  % nominal  strain  (d)  64  % nominal  strain  (e)  80  % 
nominal  strain 
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Figure  5-6  Contour  plots  of  lattice  rotation  for  [5  57]  orientation  (a)  16%  nominal  strain 
(b)  32  % nominal  strain  (c)  48  % nominal  strain  (d)  64  % nominal  strain  (e)  80  % 
nominal  strain 
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Figure  5-7  Load  vs.  elongation  for  [1  lOJorientation  using 
different  hardening  curve 
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Figure  5-9  Critical  resolved  shear  stress  vs.  time  (case  I-a) 
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Figure  5-10  Resolved  shear  strain  vs.  time  (case  I-a) 
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Figure  5-1 1 Critical  resolved  shear  stress  vs.  time  (case  I-b) 
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Figure  5-12  Resolved  shear  strain  vs.  time  (case  1-b) 
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Figure  5-13  Critical  resolved  shear  stress  vs.  time  (case  I-c) 


Time  (sec) 

Figure  5-14  Resolved  shear  strain  vs.  time  (case  I-c) 
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Figure  5-15  Critical  resolved  shear  stress  vs.  time  (case  II) 
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Figure  5-18  Resolved  shear  strain  vs.  time  (case  IV) 
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Figure  5-19  Simulated  load  vs.elongation  for  [110]  orientation 
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Figure  5-20  Case  I-a,  qaa=l-4,  qbb=1.0,  qab=1.0,  qba=1.0,  20  % nominal  strain 
(a)  Plot  of  deformed  mesh  (b)  Contour  plot  of  Cauchy  strain  in  Y-dir. 

(c)  Contour  plot  of  Cauchy  stress  in  Y-dir. 
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Figure  5-21  Case  I-a,  qaa=1.4,  qbb=1.0,  qab^l.O,  qba=1.0,  20  % nominal  strain 

(a)  Contour  plot  of  resolved  shear  strain  in  primary  slip  system 

(b)  Contour  plot  of  resolved  shear  strain  in  secondary  slip  system 


112 


-’•■T  ■ 

-4«.TtSMt 
- 4<  ISB4-n 
“ **  • ***^*^ 

tBi 

*»  22Bf*l 
-fJ  3tm¥*^ 

^H~  *i  .TSBMl 
*3 . 12  »m 


(a)  (b) 

Figure  5-22  Case  I-a,  qaa=l-4,  qbb=1.0,  qab=1.0,  qba^l.O,  20  % nominal  strain 

(a)  Contour  plot  of  critical  resolved  shear  stress  in  primary  slip  system 

(b)  Contour  plot  of  critical  resolved  shear  stress  in  secondary  slip  system 
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Figure  5-23  Case  I-b,  qaa-1.4,  qbb=1.0,  qab=1.9,  qba=0.7,  40  % nominal  strain 
(a)  Plot  of  deformed  mesh  (b)  Contour  plot  of  Cauchy  strain  in  Y-dir. 

(c)  Contour  plot  of  Cauchy  stress  in  Y-dir. 
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Figure  5-24  Case  I-b,  qaa=1.4,  qbb=1.0,  qab=1.9,  qba=0.7,  40  % nominal  strain 

(a)  Contour  plot  of  resolved  shear  strain  in  primary  slip  system 

(b)  Contour  plot  of  resolved  shear  strain  in  secondary  slip  system 
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Figure  5-25  Case  I-b,  qaa=l-4,  qbb=1.0,  qab=1.9,  qba=0.7,  40  % nominal  strain 

(a)  Contour  plot  of  critical  resolved  shear  stress  in  primary  slip  system 

(b)  Contour  plot  of  critical  resolved  shear  stress  in  secondary  slip  system 
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Figure  5-26  Case  I-e,  qaa=l-4,  qbb=1.0,  qab=1.0,  qba=0.6,  30  % nominal  strain 
(a)  Plot  of  deformed  mesh  (b)  Contour  plot  of  Cauchy  strain  in  Y-dir. 

(c)  Contour  plot  of  Cauchy  stress  in  Y-dir. 
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Figure  5-27  Case  I-c,  qaa=l  -4,  qbb=1.0,  qab=1.0,  qba=0.6,  30  % nominal  strain 

(a)  Contour  plot  of  resolved  shear  strain  in  primary  slip  system 

(b)  Contour  plot  of  resolved  shear  strain  in  secondary  slip  system 
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Figure  5-28  Case  I-c,  qaa=^1.4,  qbb=1.0,  qab=1.0,  qba=0.6,  30  % nominal  strain 

(a)  Contour  plot  of  critical  resolved  shear  stress  in  primary  slip  system 

(b)  Contour  plot  of  critical  resolved  shear  stress  in  secondary  slip  system 
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Figure  5-29  Case  II,  qaa=l-4,  qbb=1.0,  qab=1.6,  qba=0.2,  19.5  % nominal  strain 
(a)  Plot  of  deformed  mesh  (b)  Contour  plot  of  Cauchy  strain  in  Y-dir. 

(c)  Contour  plot  of  Cauchy  stress  in  Y-dir. 
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(a)  (b) 

Figure  5-30  Case  II,  qaa=l-4,  qbb=1.0,  qab=1.6,  qba==0.2,  19.5  % nominal  strain 

(a)  Contour  plot  of  resolved  shear  strain  in  primary  slip  system 

(b)  Contour  plot  of  resolved  shear  strain  in  secondary  slip  system 


(a)  (b) 

Figure  5-31  Case  II,  qaa=l  -4,  qbb=1.0,  qab=1.6,  qba=0.2,  19.5  % nominal  strain 

(a)  Contour  plot  of  critical  resolved  shear  stress  in  primary  slip  system 

(b)  Contour  plot  of  critical  resolved  shear  stress  in  secondary  slip  system 
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(a)  (b)  (c) 

Figure  5-32  Case  IV,  qaa=l-4,  qbb=1.0,  qab=1.2,  qba=0.2,  23.5  % nominal  strain 
(a)  Plot  of  deformed  mesh  (b)  Contour  plot  of  Cauchy  strain  in  Y-dir. 

(c)  Contour  plot  of  Cauchy  stress  in  Y-dir. 
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Figure  5-33  Case  IV,  qaa=1.4,  qbb=1.0,  qab=1.2,  qba=0.2,  23.5  % nominal  strain 

(a)  Contour  plot  of  resolved  shear  strain  in  primary  slip  system 

(b)  Contour  plot  of  resolved  shear  strain  in  secondary  slip  system 
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(a)  (b) 

Figure  5-34  Case  IV,  qaa=1.4,  qbb=1.0,  qab=1.2,  qba=0.2,  23.5  % nominal  strain 

(a)  Contour  plot  of  critical  resolved  shear  stress  in  primary  slip  system 

(b)  Contour  plot  of  critical  resolved  shear  stress  in  secondary  slip  system 


CHAPTER  6 

HARDENING  IN  FCC  SINGLE  CRYSTALS 
Hardening  characteristics  of  FCC  single  crystals  are  studied  in  this  chapter.  Modified 
hardening  law  for  NiAl  single  crystals  is  presented  in  the  previous  chapter.  This  law  is 
believed  to  apply  to  the  BCC  type  single  crystals  due  to  the  similar  crystal  structure  and 
distinct  slip  systems.  However,  FCC  single  crystals  have  only  one  slip  family,  unlike 
BCC  crystals  and  NiAl  single  crystals.  So,  representation  of  hardening  law  in  FCC  single 
crystals  may  be  easier  than  BCC  type  or  NiAl  single  crystals  in  some  sense.  Most  of 
hardening  laws  were  proposed  for  FCC  single  crystals  (Peirce  et  al.,  1983;  Bassani  and 
Wu,  1991).  These  hardening  models  were  explained  in  previous  chapter. 

In  this  chapter,  we  will  investigate  these  hardening  models  using  three-dimensional 
finite  element  analysis.  Various  deformation  behaviors  revealed  in  FCC  single  crystals 
are  investigated  such  as  existences  of  stage  I,  stage  II,  stage  III.  There  are  12  slip  systems 
in  FCC  structures  if  reverse  slip  directions  are  not  considered.  Slip  systems  are  divided 
into  4 groups  and  each  group  has  3 slip  directions  (see  table  6-1).  Primary  slip  system 
will  be  B4  and  conjugate  slip  system  will  be  Cl  in  [100]  projection  when  the  loading  axis 
is  inside  of  triangle  of  [100],  [110],  [1 11]  vertices  (figure  6-1).  Activation  of  slip  systems 
depends  on  the  loading  orientation.  If  the  loading  direction  is  parallel  to  [100]  orientation, 
A2,  Cl,  B4,  A3,  Dl,  B2,  C3,  D4  slip  systems  have  same  resolved  shear  stress  so  all  can 
activate  simultaneously  in  this  loading  direction.  Due  to  the  simultaneous  activation  of  8 
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Table  6-1  Notation  for  FCC  crystals  used  in  simulation 


Notation 

Slip  system 

Notation 

Slip  system 

A2 

(111)[1T0] 

Cl 

(lTl)[110] 

A3 

(111)  [loT] 

C3 

(lTl)[10T] 

A6 

(iii)[oTi] 

C5 

(1T1)[110] 

B2 

(111)  [iTo] 

D1 

(1TT)[110] 

B4 

(iiT)[ioi] 

D4 

(iTT)[ioi] 

B5 

(111)  [Oil] 

D6 

(iTT)[0iT] 

[001] 


Figure  6-1  Standard  stereographic  projection  from  [100]  orientation  of  FCC  crystals 
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slip  systems  high  hardening  is  expeeted.  If  the  loading  axis  is  parallel  to  [111] 
orientation,  Cl,  B4,  B5,  Dl,  D4,  C5  slip  systems  have  same  resolved  shear  stress.  Slip  in 
6 planes  can  occur  in  this  loading  direction.  If  the  loading  directions  are  inside  of  triangle 
of  stereographic  projection  only  the  single  slip  system  B4  occurs  and  crystal  lattice 
rotates  toward  slip  direction  [101].  When  loading  axis  reaches  [100]-[111]  border-line 
secondary  slip  system  Cl  will  activate. 

Simulation  in  Single  Slip  Orientation 

[632]  orientation  which  is  inside  of  triangle  of  stereographic  projection  is  simulated. 
To  compare  the  possible  deformation  processes  in  FCC  single  crystals  in  various 
hardening  models  three-dimensional  finite  element  analysis  is  introduced  so  all  possible 
12  slip  systems  can  be  included  in  the  simulation.  Rate-dependent  frame  was  used.  All 
simulations  used  strain  rate  sensitivity  m=0.01. 

Asaro's  hardening  model 

Two-parameter  law  used  by  Peirce  et  al.  (1983)  was  tested.  Identical  material 
properties  taken  by  Peirce  et  al.  (1983)  were  used  in  our  simulation  (Xo=60.84  (MPa), 
Ts=1.8  To,  Ho=8.9  To).  All  slip  systems  shows  same  amount  of  critical  resolved  shear 
stress  due  to  the  isotropic  hardening  of  this  law  (figure  6-2).  Due  to  the  higher  hardening 
for  all  slip  systems  only  the  primary  slip  system  B4  is  activated  up  to  12.5  % nominal 
strain  (figure  6-3).  Even  the  resolved  shear  strain  in  primary  slip  system  stops  increasing 
about  10  % nominal  strain  due  to  the  strain  softening  (figure  6-3).  This  hardening  model 
can  predict  stage  I as  seen  in  figure  6-2  however  due  to  the  absence  of  activation  of 
conjugate  slip  system  it  never  shows  rapid  hardening  rates  at  large  strain.  Even  if  this 
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model  shows  activation  of  conjugate  slip  system  rapid  hardening  will  not  be  observed  due 
to  the  lower  or  almost  zero  hardening  rate  at  large  strain  in  this  hardening  law.  Material 
shows  softening  after  stage  I and  this  model  does  not  predict  stage  II  and  stage  III  usually 
observed  in  FCC  single  crystals  (figure  6-4). 

The  first  modified  version  Asaro's  hardening  model 

In  two-parameter  law  each  modulus  of  hardening  matrix  [h]  is  a function  of  total 
resolved  shear  strain.  Two-parameter  law  is  slightly  modified  by  separating  resolved 
shear  strain  as  follows. 

hap  =qh(Yp)  + (l-q)h(Yp)6„p  (6.1) 

where  q is  the  latent  hardening  ratio.  Critical  resolved  shear  stresses  are  same  for  all  slip 
systems  with  latent  hardening  ratio  q =1.0.  Hardening  modulus  is  not  a function  of  total 
resolved  shear  strain  but  a function  of  each  resolved  shear  strain.  When  conjugate  slip 
system  is  activated  (figure  6-6)  rapid  increase  of  hardening  is  observed  (figure  6-5).  Load 
vs.  elongation  plot  shows  increased  hardening  at  large  strain  (figure  6-7).  t,  vs.  y plot 
show  the  tendency  of  stage  II.  Stage  III  could  be  observed  if  the  specimen  is  pulled 
further. 

Bassani's  hardening  model 

Hardening  model  proposed  by  Bassani  and  Wu  (1991)  was  tested  in  rate-dependent 
frame.  Hardening  formula  for  this  model  was  introduced  in  chapter  3.  They  used  rate- 
independent  frjime  and  neglected  latent  hardening  effects  by  assigning  latent  hardening 
ratio  q=0  in  the  simulation.  We  used  the  same  hardening  parameters  for  the  simulation 
(Xi=1.3  To,  h,=1.5  To,  ho=90  To,  Yo=0.001,  q=0)  as  Bassani  and  Wu  (1991).  Due  to  the 
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Strain  rate  sensitivity  effect  span  of  stage  I is  narrow  but  their  model  predicts  stage  II  and 
stage  III  (figure  6-8).  Lower  critical  resolved  shear  stresses  in  secondary  slip  systems  than 
those  of  in  primary  slip  system  facilitate  activation  of  secondary  slip  systems.  Activation 
of  conjugate  slip  system  increased  hardening  rate  and  stage  II  was  observed.  Stage  III  was 
observed  in  their  model  because  hardening  rate  of  slip  systems  was  saturated  at  large 
strain. 


The  second  modified  version  of  Asaro's  hardening  model 

Finding  a hardening  law  can  describe  deformation  process  observed  in  FCC  single 
crystals  is  investigated.  Latent  hardening  ratios  are  responsible  to  describe  interaction 
between  slip  systems.  Primary  slip  system  B4  activates  first  due  to  the  highest  resolved 
shear  stress  and  loading  axis  rotates  to  the  boundary  line  and  moves  to  the  stable  axis 
[211].  There  are  no  rotations  after  reaching  stable  axis. 

Ratio  of  resolved  shear  stress  in  primary  slip  to  that  in  secondary  slip  system  about 
stable  axis  [211]  maintains  constant  value  after  reaching  stable  axis  [211]. 


r(s) 


= K 


(6.2) 


r(s) 


m. 


m. 


i/Ve 

2/(3V6) 


= Ksl.5 


(6.3) 


We  have  primary  slip  system  B4,  conjugate  slip  system  Cl  and  two  secondary  slip 
systems  A3,  B5.  Incremental  critical  resolved  shear  stresses  of  each  slip  system  are 


coupled  with  other  slip  systems  as  follows. 
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dxl-> 

1 

9b4C1^(Yc1  ) 

9b4A3^(Ya3) 

9b4B5^(Y B5  ) 

03 

dtf'> 

9c1B4^(Yb4) 

h(Yci) 

9c1A3^(Ya3) 

9c1B5^(Y B5  ) 

dYci 

dxl-> 

9a3B4^(Yb4) 

9a3C1^(Yci) 

MYa3) 

9a3B5^(Ybs) 

^Ya3 

dxl-> 

_9b5B4^(Yb4) 

9b5C1^(YcI  ) 

9b5A3^(Ya3) 

1 

CQ 

.^Y  B5  , 

(6.4) 


Latent  hardening  ratio  is  symmetric  so  six  latent  hardening  ratios  are  to  be  determined. 
From  the  analysis  of  dislocation  interaction  junction  in  FCC  single  crystals  (Franciosi, 
1982),  we  know  that  dislocation  between  B4  and  Cl,  between  A3  and  B5  have  a same 
kind  dislocation  junction  (sessile  junction).  Dislocation  interaction  junctions  of  Cl  with 
A3  and  B5  show  the  same  kind  of  interaction  (glissile  junction).  These  two  dislocation 
interaction  types  show  strong  dislocation  interactions.  Dislocation  junction  type  of  B4 
with  A3  and  B5  has  similar  weak  dislocation  interactions.  Based  on  the  knowledge  on 
dislocation  interaction  junction  the  amounts  of  latent  hardening  ratios  activate  the 
secondary  slip  systems  are  determined. 

To  determine  the  latent  hardening  ratios  for  the  simulation,  we  have  used  following 
assumptions.  Dislocation  interactions  show  strong  trend  may  be  explained  with  one  latent 
hardening  ratio.  Therefore,  qB4c,  and  may  be  assumed  to  have  same  values.  q^As  and 
qciBs  may  be  assumed  to  have  same  values.  Initial  critical  resolved  shear  stresses  for  all 
slip  systems  have  same  values. 

Ratio  of  critical  resolved  shear  stress  in  primary  slip  to  that  in  secondary  slip  system 
is  expressed  as  follows. 


J^^(Yb4)^Yb4  "^9b4C1  J 

[^(Yci)^YcI  ■*"9b4A3  j 

[^(Ya3)^Ya3  ■*'9b4B5  j 

[h(YB5)dYB5 

9a3B4  J 

[^(Yb4)^Yb4  ■*'9a3C1  j 

[h(Yci)dYci  + J 

[h(YA3)dYA3+qA3B5  1 

[^(Y  B5  )^Y  B5 
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J^(Yb4)^Yb4  ■*"9b4C1  J 

[^(Yci)^YcI  ■^9b4A3  j 

[^(7a3)^Ya3  ■*"qB4B5  J 

fh(YB5)dYB5 

9b5B4  J 

[^(Yb4)*^Yb4  “*'9b5C1  j 

[h(Yci)dYci  +q 

B5A3  J 

fh(YA3)dYA3  + J 

[h(YB5)dYB5 

(6.6) 


We  expect  the  activation  of  secondary  slip  systems  when  the  equation  (6.5)  and 
equation  (6.6)  equal  to  ratio  K.  Following  hardening  types  were  used  in  our  analytical 
prediction  for  latent  hardening  ratio. 

hoY 


'rc(Y)  = 'To  +(t^s  -'^o)tanh 


v'^'s 


and  h(y)  = hosech' 


^ JloL  ^ 


Integration  of  rate  of  hardening  gives  following  formulas. 

^ hoYc, 


=i'^s  -To)tanh 


^h  Y ^ 

^^0  / B4 


v'^s 


Qb4A3  UT3  -To)tanh 


hoY 


+ qB4cii('^s  -'Co)tanh 


v'^s  "^oy 


A3 


v”^s  "^oy 


' Qb4B5  UTs  -To)tanh 


^oYbs  ^ 
v'^s-'^oy 


• + T„ 


-A3 

~^A3B4 


(T3  -To)tanh 
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B4 


v'^s 


C u ^ 
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( hoYBS  "|1 

1 

J 1 
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(6.7) 


(6.8) 


(6.9) 


(6.10) 


If  we  assume  stage  III  occurs  at  0.3  resolved  shear  strain  in  primary  slip  system  B4  and  at 
0.05  resolved  shear  strain  in  conjugate  slip  system  Cl,  hypertangent  curve  approaches 
0.997  for  B4  0.505  for  Cl  with  ho=8.9xo , X3=1.8X(,  Resolved  shear  strain  in  A3  and  B5  is 
zero.  Latent  hardening  ratios  of  q^jes  and  qc,B4  are  assumed  to  be  1.1.  Using  these 
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assumptions  amounts  of  critical  resolved  shear  stress  of  each  slip  systems  are  calculated 
as  follows. 

= To  + (0.8  X 0.997)  + (0.8  x 0.505) 

= 0.7976To  + x 0.404Xq  + Tq  = 2.242zg  (6.1 1) 


Tf  = qB5B4  (0.8  X 0.997)Xo  + qg3c,  (0.8  x 0.505)x„  + x„ 

= 0.7976qg5B4Xo  +0.404qg5c,To  +To  (6.12) 


Tf ' = q A3B4  (0.8  X 0.997)Xo  + q^3c,  (0.8  x 0.505)x„  + x« 

= 0.7976q^3B,Xo  +0.404q^3c,Xo  +x„  (6.13) 


Using  equations  (6.11),  (6.12)  and  (6.13)  ratio  between  primary  slip  system  and 
secondary  slip  systems  is  expressed  as  follows. 


C z=  K = 

xf  0.7976q^3B,+0.404q 

A3C1 

C 2242 

xf  0.7976qg3B, +0.404q 

B5C1  1 


(6.14) 

(6.15) 


If  we  assume  latent  hardening  ratios  of  qc,A3  and  q^es  are  equal  to  1.0,  qg4A3  and  qB4Bs  can 
be  obtained  from  equation  (6.14)  and  (6.15). 


qB4A3  qB4B5— 0 .1136  (6.16) 

This  analytical  prediction  of  latent  hardening  ratios  for  the  activation  of  secondary  slip 
systems  indicate  that  latent  hardening  ratios  between  B4  and  B5  and  between  A3  and  B4 
should  have  a small  value.  Simulation  is  performed  when  latent  hardening  ratios  are  as 
follows,  qB4A3~qB4B5~H.^>  qB4ci~qA3B5~l . 1 ’ qciA3~qciB5~l.ll.  Stagos  I,  II  and  III  are  observed 
with  this  selected  latent  hardening  ratios.  Stage  II  is  observed  due  to  the  activation  of 
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conjugate  slip  system  (figure  6-12).  Stage  III  is  observed  due  to  the  decrease  of  hardening 
rate  at  large  strain. 

Hardening  model  proposed  by  Weng  (1987)  was  tested.  Angles  between  slip  systems 
are  used  to  obtain  latent  hardening  ratios  in  his  model.  By  manipulating  three  coefficients 

ttj,  ttj  arbitrarily  in  the  hardening  formula  (equation  3.1),  we  can  assign  latent 
hardening  ratios  appropriate  for  deformation  behavior  of  single  crystals.  Therefore 
deformation  stages  in  FCC  single  crystals  can  be  observed  using  this  law. 

Summary  of  this  Study 

Hardening  models  were  simulated  to  study  the  behavior  of  single  crystals.  Most  of 
the  hardening  models  were  proposed  and  used  in  2-dimensional  geometry.  2-dimensional 
model  could  not  represent  a real  situation  because  slip  systems  are  not  perpendicular  to 
the  plane  of  deformation  in  FCC  single  crystals.  Here,  we  used  3-dimensional  model  to 
simulate  the  deformation  process  takes  place  in  real  situation. 

Asaro's  model  could  not  represent  the  stage  I,  II  and  III  usually  observed  in  FCC 
single  crystals. 

The  first  modified  version  of  Asaro's  model  showed  stage  I,  stage  II  when  the 
specimen  was  pulled  upto  12.5  % nominal  strain.  Stage  III  could  be  observed  if  the 
specimen  is  pulled  further. 

Bassani's  model  showed  a typical  behavior  of  FCC  single  crystals  even  no  latent 
hardening  ratio  was  used  (q=0). 

The  second  modified  version  of  Asaro's  model  was  proposed  to  understand  the 
effects  of  latent  hardening  ratios  on  the  activation  of  secondary  slip  systems.  Activation 
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of  secondary  slip  systems  can  be  controlled  by  manipulating  latent  hardening  ratios. 
Stage  I,  II,  and  III  was  observed  by  suppressing  the  activation  of  secondary  slip  systems. 
Stage  II  was  shown  due  to  the  activation  of  conjugate  slip  system  Cl . 


Critical  resolved  shear  stress  (MPa) 
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Figure  6-2  Critical  resolved  shear  stress  vs.  time  for  Asaro's  hardening  model 
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Figure  6-3  Resolved  shear  strain  vs.  time  for  Asaro's  hardening  model 
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Figure  6-4  Load  vs.  elongation  curve  for  Asaro's  hardening  model 
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Figure  6-5  Critical  resolved  shear  stress  vs.  time  for  the  first  modified 
version  of  Asaro's  hardening  model 
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Figure  6-6  Resolved  shear  strain  vs.  time  for  the  first  modified 
version  of  Asaro's  hardening  model 
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Figure  6-7  Load  vs.  elongation  for  the  first  modified  version  of  Asaro's 
hardening  model 
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Figure  6-8  Critical  resolved  shear  stress  vs.  time  for  Bassani's  hardening  model 
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Figure  6-9  Resolved  shear  strain  vs.  time  for  Bassani's  hardening  model 
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Figure  6-11  Critical  resolved  shear  stress  vs.  time  for  the  second  modified 
version  of  Asaro's  hardening  model 
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Figure  6-12  Resolved  shear  strain  vs  time  for  the  second  modified 
version  of  Asaro's  hardening  model 
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Figure  6-13  Load  vs.  Elongation  for  the  second  modified  version 
of  Asaro's  hardening  model 


CHAPTER  7 

CONCLUSIONS  AND  FUTURE  WORKS 

We  have  studied  the  loealization  phenomena  and  hardening  characteristics  of  NiAl 
single  crystals  using  finite  element  analysis.  Localized  deformations  in  NiAl  single 
crystals  were  observed  in  experiment  such  as  kink  bands  and  microscopic  shear  bands 
(Fraser  et  ah,  1973a,  b;  Ebrahimi,  F.  and  Shrivastava,  S.,  1997a,  b).  To  investigate  the 
causes  of  low  ductility  of  NiAl  single  crystals,  the  deformation  process  and  mechanical 
property  were  studied  throughout  this  thesis. 

Localization  phenomena  such  as  shear  bands  and  kink  bands  are  formed  in  our 
simulation.  Various  constitutive  parameters  and  hardening  parameters  are  tested  to  show 
the  effects  on  the  formation  of  localized  bands.  From  the  simulation  we  obtain  following 
results  : 

1 . Lattice  rotation  of  crystals  causes  geometric  softening  (orientation  softening)  and 
geometric  softening  causes  localized  bands. 

2.  High  strain  rate  sensitivity  delays  localization  whereas  low  strain  rate  sensitivity 
promotes  localization. 

3.  Lower  hardening  facilitates  localized  deformation. 

4.  Geometry  of  the  slip  system  also  has  a great  effect  on  the  formation  of  localized 
bands.  For  instance,  loading  along  the  [110]  orientation  does  not  allow  lattice 
rotation  and  consequently  no  localized  bands  were  observed.  However,  localized 
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deformation  occurs  due  to  the  lattice  rotation  if  the  loading  axes  are  misaligned  a 
few  degrees  from  the  [110]  symmetric  orientation. 

5.  Kink  band  analysis  also  shows  the  effect  of  the  geometry  of  the  slip  system. 
When  the  compression  loading  axis  is  along  the  hard  orientation,  no  resolved 
shear  stress  is  obtained  and  numerical  difficulty  occurs  in  the  simulation. Whereas 
kink  band  is  formed  when  loading  axis  is  misaligned  a few  degrees  from  the  hard 
orientation. 

6.  Geometric  softening  caused  by  rotation  of  crystal  lattice  is  a main  mechanism  for 
the  formation  of  kink  band  in  NiAl  single  crystals. 

Hardening  characteristics  of  NiAl  single  crystals  were  studied  for  the  purpose  of 
understanding  the  effect  of  latent  hardening  and  slip  system  interaction  on  the  hardening 
behavior.  The  increase  in  load  after  necking  for  specimens  loaded  along  [110]  orientation 
was  concluded  to  be  due  to  the  activation  of  {110}  slip  planes  in  addition  to  {100}  slip 
planes.  Three-dimensional  finite  element  model  is  required  for  the  simulation  to  include 
the  {110}  slip  planes  which  are  not  perpendicular  to  the  plane  of  deformation.  We 
described  four  different  deformation  cases  in  chapter  5 depending  on  the  activation  of 
slip  systems. 

The  following  conclusions  are  drawn  from  the  simulation  results  : 

1 . Activation  of  slip  in  {110}  planes  helps  to  increase  in  load  at  large  strain  values. 

2.  The  latent  hardening  ratios  qaa,  qba  control  the  activation  of  cross  slip  in  {110} 
slip  families. 

3.  The  latent  hardening  ratios  qbb,  qab  determine  the  hardening  behaviors  after  the 
activation  of  {110}  slip  families. 
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4.  Case  II  and  Case  IV  satisfy  the  condition  for  activation  of  cross  slip  in  { 1 10}  slip 
planes.  However,  early  activation  of  cross  slip  in  {110}  slip  planes  does  afford  a 
uniform  hardening  along  a gauge  length.  The  early  activation  of  cross  slips  in 
{110}  slip  plane  families  is  due  to  the  strain  rate  sensitivity  effect. 

5.  Case  II  and  Case  IV  can  not  provide  enough  hardening  at  necked  region  due  to 
the  early  activation  of  cross  slip  in  {110}  slip  plane  families. 

6.  Case  I does  not  satisfy  the  condition  for  activation  of  cross  slip  in  {110}  slip 
planes.  However,  Case  I-b  and  case  I-c  show  the  activation  of  cross  slip  in  {110} 
slip  plane  families  due  to  the  strain  rate  sensitivity. 

7.  Activation  of  cross  slip  in  {110}  slip  plane  families  at  large  strain  increases 
hardening  rate  at  necked  region  and  prevents  necking  in  Case  I-b. 

8.  We  may  conclude  that  increase  in  load  after  necking  at  large  strain  values  for  the 
<1 10>  orientation  of  real  specimens  is  due  to  the  activation  of  cross  slip  in  {110} 
slip  plane  families. 

Hardening  models  for  FCC  single  crystals  were  studied  for  the  purpose  of 
understanding  which  hardening  model  can  predict  experimentally  observed  deformation 
behavior  such  as  stages  I,  II  and  III.  The  following  are  obtained  from  the  simulation 
results  : 

1.  The  two-parameter  hardening  model  used  by  Asaro  (Asaro,  1983)  did  not  show 
the  stage  II.  Conjugate  slip  system  does  not  activate  due  to  the  higher  hardening 
for  every  slip  system. 
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2.  The  first  modified  version  of  Asaro's  hardening  law  which  uses  separate  resolved 
shear  strain  for  each  slip  system  was  tested  up  to  12.5  % of  the  nominal  strain 
and  showed  the  trends  of  stage  II  due  to  the  activation  of  conjugate  slip  system. 

3.  The  hardening  law  proposed  by  Bassani  (Bassani  et  al.,  1991)  was  tested  and 
showed  typical  deformation  behavior  of  FCC  single  crystals. 

4.  The  second  modified  version  of  Asaro's  hardening  model  that  uses  separate 
resolved  shear  strain  and  latent  hardening  ratios  showed  stages  I,  II  and  III  by 
controlling  latent  hardening  ratios.  Stages  I,  II,  and  III  was  observed  by 
suppressing  activation  of  secondary  slip  systems. 

User  subroutine  “UMAT”  in  ABAQUS  (Seelam,  1995)  is  expanded  for  application 
to  three-dimensional  problem.  Now  UMAT  subroutine  has  a capability  to  simulate  real 
situation.  Any  directions  of  orientation  of  single  crystals  and  slip  systems  can  be  included 
in  our  model.  Elastic  anisotropy  is  also  implemented  into  the  UMAT  subroutine. 
However,  isotropic  elasticity  was  used  for  simulation  because  most  of  the  deformation  in 
single  crystals  occurs  in  the  plastic  region.  Elastic  anisotropy  may  be  incorporated  into 
the  model  for  deformation  studies  at  the  crack  tip. 

We  have  studied  the  deformation  processes  in  the  form  of  single  crystals  in  this 
study.  From  this  study  we  suggest  following  future  works  : 

1 . Precise  description  of  hardening  based  on  the  physical  observation  is  needed  to 
obtain  more  accurate  simulation  results. 

2.  Other  integration  methods  to  improve  the  speed  of  calculation  should  be 
considered.  It  took  more  than  ten  days  to  finish  one  simulation  for  the  three- 
dimensional  model  using  SGI  work  station  with  R8000  CPU. 
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3.  The  single  crystal  model  should  be  extended  to  deal  with  bi-crystals  or  poly- 
crystals in  order  to  explore  their  highly  complex  material  behavior  based  on  the 
observed  strain  hardening  and  material  properties  of  single  crystals. 


APPENDIX 

USER  MATERIAL  SUBROUTINE 


C####  ABAQUS  Version  5.4  user  material  subroutine  UMAT  For  an  explicit,  #### 

C####  one-step,  forward-gradient  time  integration  procedure  to  integrate  #### 

C####  a set  of  constitutive  equations  for  non-uniform  plastic  deformation  #### 

C####  of  rate  dependent  single  crystal  #### 

CiHHta  mill  II 

C####  For:  AFOSR-URI  Project  #### 

C####  Department  of  Materials  Science  and  Engineering  #### 

C####  University  of  Florida  #### 

C####  Gainesville,  FL  3261 1 #### 


C####  Features:  #### 

C####  (1)  Rate-dependent,  Finite  deformation,  isotropic  and  anisotropic  crystal  #### 

C####  plasticity  for  modeling  FCC  and  BCC  crystals  #### 

C####  (2)  This  UMAT  version  is  for  plane  strain  problem,  plane  stress,  #### 

C####  axisymmetric  and  3-DIM  problem  #### 

C####  (3)  For  use  with  *STATIC  analysis  procedure  #### 


C NOTATIONS: 

C Tn  = time  at  the  beginning  of  current  increment 
C Tnp  = time  at  the  end  of  current  increment 
C Dt  = current  time  increment. 


C Standard  UMAT  variables  that  are  used  (see  the  UMAT  documentation) 

C STRESS  = components  of  the  stress  tensor 
C ST ATE V = array  of  solution  dependent  state  variables 
C DDSDDE  = derivative  of  stress  increment  wrt  strain  increment 
C STRAN  = components  of  the  strain  tensor  at  Tn 
C DSTRAN  = components  of  the  strain  increment  tensor  in  Dt 
C TIME(2)  = total  solution  time  at  the  beginning  of  current  inc 
C DTIME  = time  increment  Dt 

C NDI  = number  of  direct  components  (Hardwired  for  3) 

C NSHR  = number  of  engineering  shear  components 

C NTENS  = total  number  of  stress  or  strain  components 
C NSTATV  = number  of  state  variables  entered  in  the  *DEPVAR  option 
C PROPS(NPROPS)=  array  of  material  constants  entered  in  the  *USER  MATERIAL  option 
C NPROPS  = number  of  material  constants  (value  given  to  CONSTANTS  parameter  on 
C the  *USER  MATERIAL  option) 

C DFGRD0(3,3)  = array  containing  the  deformation  gradient  at  the  beginning  of 
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C current  increment,  stored  as  a 3x3  matrix,  DFGRDO(I,J)<=>F(I,J) 

C DFGRD  1(3,3)  = array  containing  the  deformation  gradient  at  the  end  of  current 
C increment.  Stored  as  a 3x3  matrix,  DFGRD1(I,J)<=>F(I,J) 

C KSTEP  = current  step  number 
C KING  = current  increment  number 


C Storage  of  the  components  of  STRESS  and  STRAN  in  the  UMAT: 
C STRESS(  1 ) = XX  ( 1 1 )(normal  or  direct)  component 

C STRESS(2)  = YY  (22)(normal  or  direct)  component 

C STRESS(3)  = ZZ  (33)(normal  or  direct)  component 

C STRESS(4)  = XY  (12)(engineering  shear)  component 

C STRESS(5)  = XZ  (13)(engineering  shear)  component 

C STRESS(6)  = YZ  (23)(engineering  shear)  component 


C 3-DIM  problem  NDI=3,NSHR=3  ->  NTENS=6 

C Generalized  plane  strain  problems  NDI=3,NSHR=1 ->  NTENS=4 

C Plane  stress  problem  NDI=2,NSHR=1 ->  NTENS=3 

C Axisymmetric  problem  NDI=3,NSHR=1  — > NTENS=4 


C Variables  stored  in  the  STATEV  array: 

C Array  of  critical  resolved  shear  stresses  (CRSS)  G(NSLIPS) 

C STATEV(l)  =G(1) 

C Array  of  shearing  on  slip  systems  GAMMA(NSLIPS) 

C STATEV(2)  =GAMMA(2) 

C Plastic  deformation  gradient  FPLAST(3,3) 

C STATEV(3)  =FPLAST(1,1) 

C STATEV(4)  =FPLAST(2,1) 

C STATEV(5)  =FPLAST(3,1) 

C STATEV(6)  =FPLAST(1,2) 

C STATEV(7)  = FPLAST(2,2) 

C STATEV(8)  = FPLAST(3,2) 

C STATEV(9)  =FPLAST(1,3) 

C STATEV(10)  = FPLAST(2,3) 

C STATEV(11)  = FPLAST(3,3) 

f2***********  ************************************************>1011*******  t ******** 


C Unrotated  stress  (3DIM) 

C STATEV(12)  = STRESS(1) 

C STATEV(13)  = STRESS(2) 

C STATEV(14)  = STRESS(3) 

C STATEV(15)  = STRESS(4) 

C STATEV(16)  = STRESS(5) 

C STATEV(17)  = STRESS(6) 

C Contents  of  PROPS(NPROPS)  array: 

C PROPS(l)  PHI  - degree  of  implicitness  (ranges  from  0 to  1) 

C PROPS(2)  SRS  - strain  rate  sensitivity  parameter(m) 

C PROPS(3)  EMU  - elastic  shear  modulus 
C PROPS(4)  EKAPPA  - elastic  bulk  modulus 
C PROPS(5)  ADOT  - reference  rate  of  shearing  on  system's  1 & 2 
C PROPS(6)  QA  - latent  hardening  ratio 
C PROPS(7)  QB  - latent  hardening  ratio 
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C PR0PS(8)  QAB  - latent  hardening  ratio 
C PROPS(9)  QBA  - latent  hardening  ratio 

C PROPS(IO)  TAUO  - reference  CRRS  on  all  slip  systems  for  TGAMMA=0 
C PROPS(l  1)  TAUS  - coefficient  of  saturation  strength  for  1&2 
C PROPS(12)  HO  - Hardening  rate 
C PROPS(13)  NTYPE  - Analysis  type 
C PROPS(14)  NSLIPS  - number  of  slip  system 
C PROPS(15)  NSLIPSl-  number  of  slip  system  in  {110} 

C PROPS 

C |PROPS(16)  PROPS(17)  PROPS(18)|  |CMC11  CMC12  CMC13| 

C jPROPS(  1 9)  PROPS(20)  PROPS(2 1 )|=  |CMC2 1 CMC22  CMC23 1 
C |PROPS(22)  PROPS(23)  PROPS(24)|  |CMC31  CMC32  CMC33| 

C - CMC  : material  coord. 

C PROPS(25)  Nl:  [0  0 1]  (1  1 0)  PROPS(26)  N2:  [0  0 1]  (-1  1 0) 

C PROPS(27)  N3:  [1  0 0]  (0  1 -1)  PROPS(28)  N4:  [1  0 0]  (0  1 1) 

C PROPS(29)  N5:  [0  1 0]  (1  0 1)  PROPS(30)  N6:  [0  1 0]  (-1  0 1) 

C PROPS(31)  N7;  [1  0 0]  (0  1 0)  PROPS(32)  N8:  [0  0 1]  (0  1 0) 

C PROPS(33)  N9:  [0  0 1]  (1  0 0)  PROPS(34)  N10:[0  1 0]  (1  0 0) 

C PR0PS(35)N11;  [0  1 0]  (0  0 1)  PROPS(36)  N12:[l  0 0]  (0  0 1) 

C PROPS(37)  Q - latent  hardening  ratio  in  double  slip  system 
C PROPS(38)  ANGLE  1 - Angle  between  primary  and  x axis 
C PROPS(39)  ANGLE2  - Angle  between  conjugate  and  x axis 
C PROPS(40)  C 1 1 - 1 St  component  of  anisotropy  elasticity 

C PROPS(41)C12  - 2nd  component  of  anisotropy  elasticity 
C PROPS(42)  C44  - 3rd  component  of  anisotropy  elasticity 
C PROPS(43)  NFl;  [0  -1  1]  (-1  1 1)  PROPS(44)  NF2  : [1  0 1]  (-1  1 1) 

C PROPS(45)NF3:  [1  1 0]  (-1  1 1)  PROPS(46)NF4  : [0-1  1]  (1  1 1) 

C PROPS(47)NF5:  [-1  0 1]  (1  1 1)  PROPS(48)NF6  : [1  1 0]  (11  1) 

C PROPS(49)  NF7:  [0  1 1]  (-1  -1  1)  PROPS(50)  NF8  ; [1  0 1]  (-1  -1  1) 

C PROPS(51)NF9:  [-1  1 0](-l-l  1)  PROPS(52)  NFll  :[0  1 1]  (1  -1  1) 

C PROPS(53)NF11:[-10  1](1-1  1)  PROPS(54)NF12:[l  10]  (1-11) 

C PROPS(55)  NCRTYPE  ; CRYSTAL  TYPE 
C PROPS(56)  Hs  : Saturated  hardening  rate 


C The  above  input  for  HO, TAUO, TAUS  should  correspond  to  tensile  test  data 
C The  hardening  curve  used  in  this  models  i.e  for  FCC  and  BCC  single  crystals 
C assumes  isotropic  yield  stress  for  all  the  slip  systems 


C The  parameter  PHI  controls  the  degree  of  implicitness  of  the  integration  procedure 
C PHI  = 0.0  — explicit 
C PHI  = 1.0  —fully  implicit 
C Suggested  value  of  PHI:  equal  to  or  greater  than  0.50 


C VARIABLES: 


SUBROUTINE  UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD, 

1 RPL,DDSDDT,DRPLDE,DRPLDT, 

2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME, 
3NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT, 

4 CELENT,DFGRD0,DFGRD  1 ,NOEL,NPT,LAYER,KSPT,KSTEP,KINC) 

^ ic  4;  * 4c  * 1 ^ * * 4c  ^ Ifc  4c  ^ 4c  ♦ 3(1  ♦ ♦ t t ^ 4c  1 4c  )|e  :)( 3(C  3|<  * * * 9|C  * 3|e  ^ :fe  3(C  * 3|c  * 
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INCLUDE  'ABA_PARAM.INC 

^*=M<***********i|<******>l<H«>|.**>tc*!McHc*x,!H*  + *******H<****^>l«************>|c=|c***=|c=|.*******=C 

CHARACTER*8  CMNAME 

DIMENSION  STRESS(NTENS),STATEV(NSTATV), 

1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS), 

2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(  1 ),DPRED(  1 ), 

3 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRDO(3,3),DFGRD1(3,3) 

C Changed  according  to  model  definition 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  G(MNSLIPS),GDOTT(MNSLIPS),SDV(3,MNSLIPS), 

1 SNV(3  ,MNSLIPS),FPLAST(3 ,3),SUMM(3 ,3),DFPLAT(3 ,3),FIPLAT(3,3), 

2FELAST(3,3),PDINOT(9,MNSLIPS),PNODIT(9,MNSLIPS), 

3PTEN(MDIM,MNSLIPS),WTEN(9,MNSLIPS),BTEN(MDIM,MNSLIPS), 

4ELASTM(MDIM,MDIM),RTEN(MDIM,MNSLIPS),TAU(MNSLIPS), 

5HARDM(MNSLIPS,MNSLIPS),QTEN(MDIM,MNSLIPS),FTEN(MDIM,MNSLIPS), 

6FDOT(MNSLIPS),DGAMMA(MNSLIPS),GAMMA(MNSLIPS),FDSCAL(MNSLIPS), 

7DG(MNSLIPS),DSTRES(MDIM),SLIPMM(MNSLIPS,MNSLIPS), 

8 SNVSTR(3,MNSLIPS),DRSTRS(MDIM),SD(3,MNSLIPS),SN(3,MNSLIPS), 
9SLIPNM(MNSLIPS,MNSLIPS),SDVSTR(3,MNSLIPS) 

^ :|C1|C  !|c  !|c  s|c  s|t  # s|c  :|c  :|C  * 1|C  >l<  >•>  >i< « >l<  4c  Ik  >l<  *>|c  !|<  i|c  >l<  % >|C>|C  4c  iK 

C The  following  matrix  is  the  inverse  of  DFGRDl  and  used  to  calculate 
C the  nominal  stress  for  a particular  node. 

DIMENSION  DFGIN1(3,3) 

^4c4c4c4<4c4c4c4c4c4c4c4c4c4<4c4c4c4c4c4c4<>I<4c4c4<4c4c4c4c4c4c4‘««4<4<4c4c4c4<4c4c4c4c4c4c4‘4c4‘4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4:4c4c4:4c4<4c4c4c4c4c4c 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

PARAMETER  (M=3) 

C Step  1.  NDIPLl  and  PHIDT  are  computed  for  later  use  in  the  program 


NDIPL1=NDI+1 
PHIDT=PROPS(  1 )*DTIME 

^4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4<4c4c4c4c4<4<4c4>4c4c4c4c4c4c4c4<4c4c4<4<4c4<4c4<4<4<4c4c4c4c4c4c4c4c4c4c4c4c4‘4c4c4c4c4c4c4c4c4c4c4<4c4c4c4c4c4c4c 

C Step  2.  The  user  material  properties  are  set. 

C NOTE:  some  props  change  according  to  the  model  definition 

^4c4<4c4c4c4<4c4c4c4c4>4c4c4c4c4c4c4c4c4<4c4c4c4c4c4c4c4c4c4c4c4c4c4<4c4c4c4c4c4c4c4<4c4!4c4<4c4c4c4!4c4'*4c4c4c4c4c4c4!4c4c4c4c4c4c4c4<4c4'4c4!4c4c4c4e4c 


PHI 

= PROPS(l) 

SRS 

= PROPS(2) 

EMU 

= PROPS(3) 

EKAPPA 

= PROPS(4) 

ADOT 

= PROPS(5) 

QA 

= PROPS(6) 

QB 

= PROPS(7) 

QAB 

= PROPS(8) 

QBA 

= PROPS(9) 

TAUO 

= PROPS(10) 

TAUS 

= PROPS(ll) 

HO 

= PROPS(12) 

NTYPE 

= PROPS(13) 

NSLIPS 

= PROPS(14) 

NSLIPSl 

= PROPS(I5) 
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CMC  11 

= PROPS(16) 

CMC  12 

= PR0PS(17) 

CMC  13 

= PROPS(18) 

CMC21 

= PR0PS(19) 

CMC22 

= PROPS(20) 

CMC23 

= PROPS(21) 

CMC31 

= PROPS(22) 

CMC32 

= PROPS(23) 

CMC33 

= PROPS(24) 

N1 

= PROPS(25) 

N2 

= PROPS(26) 

N3 

= PROPS(27) 

N4 

= PROPS(28) 

N5 

= PROPS(29) 

N6 

= PROPS(30) 

N7 

= PR0PS(31) 

N8 

= PROPS(32) 

N9 

= PROPS(33) 

NIO 

= PROPS(34) 

Nil 

= PROPS(35) 

N12 

= PROPS(36) 

Q 

= PROPS(37) 

ANGLE  1 =PROPS(38) 

ANGLE2  = PROPS(39) 

Cll 

= PROPS(40) 

C12 

= PR0PS(41) 

C44 

= PROPS(42) 

NFl 

= PROPS(43) 

NF2 

= PROPS(44) 

NF3 

= PROPS(45) 

NF4 

= PROPS(46) 

NFS 

= PROPS(47) 

NF6 

= PROPS(48) 

NF7 

= PROPS(49) 

NF8 

= PROPS(SO) 

NF9 

= PROPS(51) 

NFIO 

= PROPS(52) 

NFll 

= PROPS(53) 

NF12 

= PROPS(54) 

NCRTYPE  = PROPS(55) 

Hs 

= PROPS(56) 

C Step  3.  The  state  variables  from  STATEV  array  are  set. 


C The  CRSS  G(NSLIPS)  and  the  shearings  GAMMA(NSLIPS)  are  set 
K=NSLIPS 
DO210I=l,NSLIPS 
K=K+1 


G(I)=STATEV(I) 
GAMMA(I)=STATEV(K) 
210  CONTINUE 
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C The  plastic  deformation  gradient,  FPLAST(3,3)  is  set 
K=2*NSLIPS 
DO  230  J=l,3 
DO  2201=1,3 
K=K+1 


FPLAST(I,J)=STATEV(K) 

220  CONTINUE 
230  CONTINUE 

(^♦****Xc**>HXe************  + .|<**H<Hc****>|c>|c****H<>l<>|c**X«>|c**>l«*>l<****>|c>K****H<****>|c******Hc>|c**=(c 

C The  unrotated  STRESS  of  previous  Inc  is  set.  This  is  used  to  compute  TAU()  at  time  Tn 
K=2*NSLIPS+9 
DO  240  I=1,NTENS 
K=K+1 


DRSTRS(I)=STATEV(K) 
240  CONTINUE 


C Step  4.  Initialize  the  state  variables,  if  necessary. 

C NOTE:  G(I)  i.e  CRSS's  are  changed  according  to  model  definition 
C NCRTYPE  = 0 =>NIAL  TYPE 
C NCRTYPE  = 1 =>FCC  TYPE 


Jit  + Jit************  **************  ********♦♦**♦*  sic******  *♦■!<***  *♦* 


C FOR  NIAL  TYPE  CRYSTALS 


IF  (NCRTYPE  .EQ.  0)THEN 
TGAMMA1=ZER0 
DO310I=l,NSLIPSl 

TG  AMM  A 1 =TGAMM  A 1 +D  AB  S(G  AMM  A(I)) 
310  CONTINUE 

(^*********  ************************** 


TGAMMA2=ZERO 
DO  315  I=NSLIPS1+1,NSLIPS 
TGAMMA2=TGAMMA2+DABS(GAMMA(I)) 

315  CONTINUE 

^***************************************************************************** 
IF(TGAMMAl.EQ.ZERO)  THEN 

C Initialize  the  CRSS's  G(NSLIPS) 

DO  320  I=1,NSLIPS1 
G(I)=TAU0 
320  CONTINUE 

C Initialize  the  plastic  deformation  gradient 
DO  325  1=1,3 
FPLAST(I,I)=ONE 
325  CONTINUE 
END  IF 

^******* ************************************************************ ********** 
IF(TGAMMA2.EQ.ZERO)  THEN 

C Initialize  the  CRSS’s  G(NSLIPS) 

DO  330  I=NSLIPS1+1,NSLIPS 
G(I)=TAU0 
330  CONTINUE 
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C Initialize  the  plastic  deformation  gradient 
DO  335  1=1,3 
FPLAST(I,I)=ONE 
335  CONTINUE 
END  IF 


Step  5.  The  possible  slip  vectors  SD(3,NSLIPS)  and  SN(3,NSLIPS) 
in  the  intermediate  configuration  are  calculated. 


C Compute  slip  direction  vector  SDV(3,NSLIPS) 

IF  (NTENS.EQ.6)THEN 

CALL  CALSSNIAL(N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N1 1,N12,SD,SN) 
ELSE 

SD  V(  1 , 1 )=DCOSD(  ANGLE  1 ) 

SDV(2, 1)=DSIND(ANGLE  1 ) 

SDV(3,l)=ZERO 

SDV(  1 ,2)=DCOSD(  ANGLE2) 

SDV(2,2)=DSIND(ANGLE2) 

SDV(3,2)=ZERO 


C Compute  slip  normal  vector  SNV(3,NSLIPS) 
SNV(  1 , 1 )=-DSIND(  ANGLE  1 ) 

SNV(2, 1 )=DCOSD(ANGLE  1 ) 

SNV(3,l)=ZERO 

SNV(  1 ,2)=DSIND(  ANGLE2) 

SNV(2,2)=-DCOSD(ANGLE2) 

SNV(3,2)=ZERO 

END  IF 


C FOR  FCC  CRYSTALS 


ELSE 

TGAMMA=ZERO 
DO  336I=1,NSLIPS 

TGAMMA=TGAMMA+DABS(GAMMA(I)) 

336  CONTINUE 
C 

IF(TGAMMA.EQ.ZERO)  THEN 
C Initialize  the  CRSS's  G(NSLIPS) 

D0  337I=1,NSLIPS 
G(I)=TAU0 

337  CONTINUE 

C Initialize  the  plastic  deformation  gradient 
DO  338  1=1,3 
FPLAST(I,I)=ONE 

338  CONTINUE 
END  IF 


C Step  5.  The  slip  vectors  SDV(3,NSLIPS)  and  SNV(3,NSLIPS)  in  the  intermediate 
C configuration  are  calculated. 

C NOTE:  Change  according  to  model  definition 
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C Compute  slip  direction  vector  SDV(3,NSLIPS) 

IF  (NTENS.EQ.6)THEN 

CALL  CALSSFCC(NF1,NF2,NF3,NF4,NF5,NF6,NF7,NF8,NF9,NF10,NF1 1,NF12,SD,SN) 
ELSE 

SD  V(  1 , 1 )=DCOSD(  ANGLE  1 ) 

SDV(2, 1 )=DSIND(  ANGLE  1 ) 

SDV(3,l)=ZERO 

SDV(  1 ,2)=DCOSD(ANGLE2) 

SDV(2,2)=DSIND(ANGLE2) 

SDV(3,2)=ZERO 

C Compute  slip  normal  vector  SNV(3,NSLIPS) 

SNV(  1 , 1 )=-DSIND(  ANGLE  1 ) 

SNV(2, 1 )=DCOSD(ANGLE  1 ) 

SNV(3,l)=ZERO 

SNV(  1 ,2)=DSIND(ANGLE2) 

SNV(2,2)=-DCOSD(ANGLE2) 

SNV(3,2)=ZERO 
END  IF 

Q**************t¥*****************************************************i>i**lti*iti**it‘ 

END  IF 


C Step  6.  The  elastic  deformation  gradient  FELAST  is  computed. 


C Invert  FPLAST  to  obtain  FIPLAT 

CALL  FINVRST  (FPLAST, FIPLAT, M) 

Q >|<  i|i  i|<  If  >)<>)<  >l<  >l<  i|<  H<  H<  :<<  >l<  >l<  >i<  H<  >l<  iK  lie**  >|i  >l<  >)<  >l<  !<<  >)<  it!  >|<  s|e:|i  >l<  * s|t  >|i  * 


DO530  J=l,3 
DO  520  1=1,3 
FELAST(I,J)=ZERO 
520  CONTINUE 
530  CONTINUE 

Q If  If  If  If  If  If  If  if  ifcif  if  if  if  If  If  if  If  If  * If  If  If  If  if  if  If  if  If  If  If  if  If  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  If  if  if  if  if  if  if  if  if  If  If  if  if  if  * If  If  If  If  if  if  if  if  If  if  if  if  if  if 


DO560  J=l,3 
DO  550  1=1,3 
DO  540  K=l,3 

FELAST(I,J)=FELAST(I,J)+DFGRDO(I,K)*FIPLAT(K,J) 
540  CONTINUE 
550  CONTINUE 
560  CONTINUE 


C Step  7.  The  subroutine  CONSLIPSYS  computes  slip  systems  w.r.t.  global  coord. 


IF  (NTENS.EQ.6)THEN 

CALL  CONSLIPSYS(SD,SN,CMCl  1,CMC12,CMC13,CMC21,CMC22,CMC23, 

+ CMC3I,CMC32,CMC33,NSLIPS,SDV,SNV) 

^4G)|c:K3(t)|<^*)ic3|e>|(9fc:1e:tc9|c]|c3|c:f3|c9|c]|c4c3|e)|c](c:(c3(c«3|c:|(]|c:|c%:|c:{c)|e9|c9|c3fet)|c3K>|e3|e%3|c)|e>k>fc>ie)ft>fc)|c>|t4c%%4e3K3i‘3|c*3|‘>ic9ic*’)c)icic:4c:4(:K)|c:^ 

C Step  8.  The  subroutine  LATVEC  computes  the  the  lattice  vectors  corresponding 
C to  the  deformed  configuration  at  time  Tn  (actually  at  time  Tnp  of  previous  inc)- 

C NOTE:  SDVSTR  and  SNVSTR  are  not  normalized. 


CALL  LATVEC  (FELAST,SDV,SNV,SDVSTR,SNVSTR,NSLIPS) 
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ELSE 

CALL  LATVEC  (FELAST,SDV,SNV,SDVSTR,SNVSTR,NSLIPS) 

END  IF 

Step  9.  Subroutine  PROSDN  computes  the  products  of  SDVSTR  & SNVSTR 
C i.e  PDINOT  & PNODIT  to  compute  the  schmid  tensors  PTENCNTENS,NSLIPS) 
C & WTEN(9,NSLIPS)  at  time  Tn  (actually  at  time  Tnp  of  previous  inc) 

CALL  PROSDN  (SDVSTR, SNVSTR, PDINOT, PNODIT, NSLIPS) 

C Step  10.  Subroutine  SCHMIP  computes  PTEN(NTENS,NSLISP)  at  Tn, 

C PTEN  is  symmetric  and  analogous  to  STRAN(NTENS) 

CALL  SCHMIP  (PDINOT,PNODIT,PTEN,NSLIPS,NDI) 

C Step  1 1 . Subroutine  SCHMIW  Calculates  the  schmid  factor 
C WTEN(9,NSLIPS)  at  Tn.  WTEN(9,NSLIPS)  is  skew  symmetric. 

CALL  SCHMIW  (PDINOT,PNODIT,WTEN,NSLIPS) 

C Step  12.  Subroutine  BETA  Computes  BTEN  at  Tn  BTEN  is  analogous  to  STRESS 

CALL  BETA  (WTEN,STRESS,NTENS,BTEN,NSLIPS,NDI) 

C Step  13.  Calculate  the  elastic  matrix  with  the  ground  state  values 


C Change  analysis  type  according  to  model  definition 
C Axisymmetric  model : NTYPE  = 1 
C Plane  stress  model : NTYPE  = 2 

C Plane  strain  model : NTYPE  = 3 

C 3 - DIM  model  : NTYPE  = 4 

C General  anisotropy  : NTYPE  = 5 


IF  (NTYPE  .EQ.  1)THEN 

CALL  ELMATR 1 (EMU,EKAPPA,NTENS,NDI,NDIPL  1 ,ELASTM) 

ELSE  IF  (NTYPE  .EQ.  2)THEN 

CALL  ELMATR2(EMU,NTENS,NDI,NDIPL1  ,ELASTM) 

ELSE  IF  (NTYPE  .EQ.  3)THEN 

CALL  ELMATR3(EMU,EKAPPA,NTENS,NDIPL1  ,ELASTM) 

ELSE  IF  (NTYPE  .EQ.  4)THEN 

CALL  ELMATR4(EMU,EKAPPA,NDI,NTENS,NDIPL1  ,ELASTM) 

ELSE 

CALL  CALCOORD(FELAST,CMC  1 1 ,CMC  1 2,CMC  1 3 ,CMC2 1 ,CMC22,CMC23 , 
+ CMC3 1,CMC32,CMC33,CX,CY,CZ,NTENS) 

CALL  ANIELAS(C1 1,C12,C44,CX,CY,CZ,ELASTM,NDI) 

END  IF 


C Step  14.  Calculate  RTEN(6,NSLIPS)  at  Tn 


CALL  RTENS  (BTEN,PTEN,ELASTM,RTEN,NSLIPS,NTENS,NDI) 

■^:^;tf*^r***^*:tl^f:tf**:ti**^l^^i:tl^i^^:t>*********’>‘*i>i*’»‘********>lf>if**’if  ************************* 
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C Step  15.  Calculate  the  resolved  shear  stress  TAU  at  Tn 
C NOTE  1 : The  stress  used  here  is  KIRCHOFF  stress 
C NOTE  2:  Here  the  unrotated  stress  tensor  of  previous  Inc  i.e  DRSTRS 
C is  used  to  compute  TAU(NSLIPS) 

^ :)c  :|e  iK  >!<  >!<  Hi  >!<  >l<  4<  « >l<  * ^ >1:  >l<  >(<  >l"l‘ >t<  >|c  !|c  i|c  s|t  !|i  >l<  ^ Hell:  !|c  i|c)|c  s|c  * It:  * :|c  !|c>|c  :|e  4c 

C Initialize  TAU 

DO  1310K=1,NSLIPS 
TAU(K)=ZERO 
1310  CONTINUE 

C Calculate  TAU 


DO  1330K=1,NSLIPS 
DO  1320  I=1,NTENS 

C TAU(K)=TAU(K)+PTEN(I,K)*STRESS(I)  

TAU(K)=TAU(K)+PTEN(I,K)*DRSTRS(I) 

1320  CONTINUE 
1330  CONTINUE 

^ * 4c  * * * * * * * * I|C  ♦ * * * * * 4c  * j(c  4C  4c  4c  * He  He  * * j|c  j|c  j|c  j|c  j|c  ♦ IMC  * * * * 4c  * * 4e  * 4c  * * * * 4c  4c  * 4c  4c  j|e  4C  4c  4c  4c  * j|c  4c  * !|c  * 4: 4C  4c  4c  * * 4e  * 4c  4c  i|c 

C To  avoid  division  by  ZERO  set  the  value  of  TAU(NSLIPS)  to  a small  number  if  they  become  0 
DO  1360  I=1,NSLIPS 
IF  (TAU(I).EQ.ZERO)  THEN 
TAU(I)=l.D-6 
END  IF 

1360  CONTINUE 


C Step  16.  Calculate  GDOTT  at  time  Tn.  subroutine  GAMDOT  returns  GDOTT(NSLIPS) 
CALL  GAMDOT  (TAU, G, GDOTT, SRS,ADOT,NSLIPS) 


C Step  17.  Call  subroutine  QTENSO,  which  returns  the  tensor  QTEN 
C based  on  the  value  of  RTEN  at  time  Tn 


CALL  QTENSO  (GDOTT,TAU,PHIDT,SRS,RTEN,QTEN,NSLIPS,NTENS) 

Step  18.  Calculate  the  hardening  matrix  at  time  Tn  based  on  the  value  of  TGAMMA  at  the 
end  of  last  inc.  The  computed  value  of  HARDM  is  used  in  calculating  SLIPMM 
NOTE:  If  TGAMMA=0  then  h(TGAMMA)=h0 
NCRTYPE  = 0 =>NIAL  TYPE 
NCRTYPE  = 1 =>FCC  TYPE 


IF  (NCRTYPE  .EQ.  0)THEN 

CALL  HCURVM(TGAMMA1,TGAMMA2,HARDM,H0,TAUS,TAU0,QA,QB, 
+ QAB,QBA,NSLIPS,NSLIPS1,NTENS,Q) 

ELSE 

CALL  HCURVMF(TGAMMA,HARDM,H0,TAUS,TAU0,NSLIPS,Q,Hs) 

END  IF 


C Step  19.  Call  subroutine  SMATRX,  which  returns  the  matrix  SLIPMM  based 
C on  the  values  of  RTEN,  PTEN,  TAU,  GDOTT,  HARDM  and  G at  time  Tn 


CALL  SMATRX  (GDOTT,RTEN,PTEN,TAU,G,HARDM,NSLIPS,PHIDT,SRS, 
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+ SLIPMM,NTENS,NDI) 

C Step  20.Call  subroutine  FOOTS  (returns  the  value  FDOT(NSLIPS)  at  time  Tn) 
CALL  FOOTS  (SLIPMM,GOOTT,FOOT,NSLIPS) 

C Step  21. Call  subroutine  FTENSO  (returns  the  tensor  FTEN(6,NSLIPS)  at  time  Tn) 
CALL  FTENSO  (SLIPMM,QTEN,FTEN,NSLIPS,NTENS) 


C Step  22.  Calculate  the  slip  increments  OGAMMA  during  current  time  inc  Ot  and  then 
C update  the  slips  on  each  slip  system  GAMMA. 


OO2110I=l,NSLIPS 
FOSCAL(I)=ZERO 
21 10  CONTINUE 


^:|e:)e:ie:4c4(4c4c}|c)|c3|(9(c9|(}|(9|(9|c:)c9|e9|c9)c9)(9|t9ie)|(>|(%%9|c9|(9ie4c3fc^^:)(:|e:|c9|c)|(9|e)|c)|t9)e9N9)e3)c:)c3|(3|c)|C3|c3(c}|cs|cH(%9ic9fc9fc9(c9|e)fe9fej|e»|c))c9ic^^4c^:lc}(c:|e%»ic^:lc 


C Compute  the  scalar  product  of  FTEN  and  OSTRAN. 

OO2130K=l,NSLIPS 
00  2120  I=1,NTENS 

FOSCAL(K)=FOSCAL(K)+FTEN(I,K)*OSTRAN(I) 

2120  CONTINUE 
2130  CONTINUE 

^j|c3^:|e^9^:)c3|e3|c3ic3|c3{c3fc3|e3|c:|c]fc3|c:(c:4c)|c:4c:fc>|e9|()|e9|c%)|e:fc:4e%}K3fc:4c3K3|c>|c3|cic3fc:^:)c4c^:ti9fc9|c)|c9|c)|e)|c:4c}|c3(e3fe](c3ic3(e^e^}|e3fe9|e9|e3)c^:fe)fesfe4cj^ 


C Compute  the  slip  increments 
00  2160  1=1, NSLIPS 

OGAMMA(I)=FOOT(I)*OTIME+FOSCAL(I) 
2160  CONTINUE 


>1:  ^ ^ ^ ^ « 3|<  % :4<  IK  H<  >l<  * * ^ * i|c  Hi  Hi  i|<  H<  >1:  >!■  >l"l‘ >l<  >l<  >l<  >l<  * * i|<  * ^ ^ s|<  i|<  Hi  >!<  >tc4<  4c  ^ * i|i  if:  i):  :|c  i):  4c  s|i  ^ 4c 

C Update  the  slip  increments. 

00  2170  1=1, NSLIPS 
GAMMA(I)=GAMMA(I)+OGAMMA(I) 

2170  CONTINUE 


C Step  23.  HCURVM  computes  the  new  hardening  matrix  for  Ot  with  the  updated  value  of 
C TGAMMA. 


IF  (NCRTYPE  .EQ.O)  THEN 
TGAMMA  l=ZERO 
OO  2210  1=1, NSLIPS  1 

TGAMMA  1 =TG  AMM  A 1 +0  AB  S(G  AMM  A(I)) 

2210  CONTINUE 

^s|c  ]|{  9|c9|c9|c9(c3)c4c^3|c)i(3f(>|(9(e^>|c4(>|t3)e)|c)|c:|(^:ic^^^j|e:)e9|e:)c%:)e9|ej|c9|c:fe9|M|c9|c9|c:)e:|c9|s9|(3|e:|c4c:|e^^j(e:fe:|(9|c^:)c:(c^:)c:^^9(c9|c9(c9|c^^9)c9)e:)cj(e3|c9|c:(c}|;:)( 


TGAMMA2=ZERO 

OO  2215  I=NSLIPS  1+1, NSLIPS 

TGAMMA2=TGAMMA2+OABS(GAMMA(I)) 

2215  CONTINUE 

CALL  HCURVM(TGAMMA1,TGAMMA2,HAROM,HO,TAUS,TAUO,QA,QB, 
+ QAB,QBA,NSLIPS,NSLIPS1,NTENS,Q) 

ELSE 
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TGAMMA=ZERO 
DO  2217  1=1, NSLIPS 

TGAMMA=TGAMMA+DABS(GAMMA(I)) 

2217  CONTINUE 

CALL  HCURVMF(TGAMMA,HARDM, HO, TAUS,TAU0, NSLIPS, Q,Hs) 
END  IF 


C Step  24.  Update  the  critical  resolved  shear  stresses 


C Initialize  the  critical  resolved  shear  stress  increment  array  DG. 
DO  23 10  1=1, NSLIPS 
DG(I)=ZERO 
2310  CONTINUE 


Q*if********Mf*************^f  ****************  *****^l^****************:^:>^i^Li^^l^^i|li|l^li|^i^:i):Jl^ 


C Compute  the  increments  of  crss  DG  during  the  current  increment 
DO  2330  J=l, NSLIPS 
DO  2320  1=1, NSLIPS 

DG(J)=DG(J)+HARDM(J,I)*DABS(DGAMMA(I)) 

2320  CONTINUE 
2330  CONTINUE 

^ 3|C  ^ ^ :(c  3|C  3|C  3|c  3|c  iK  >|c  3|c  3)c  3|c  3|c  % :fc  9)e  :|c  J(e  jK  3^  3|c  3|c  3|c  t 9tc  :fe  :)C  ife  )|e  )|C  )fe  3|C  3(c  sK  3|C  3|C  3)c  3k  l|C  >(C  >|C  9fc  9|e  ^ 9)e  9fe  9fc  3fe  ^ lie  :|c  9|c  3(c  3tc  % 


C Update  the  crss 

DO  2340  1=1, NSLIPS 
G(I)=G(I)+DG(I) 
2340  CONTINUE 


C Step  25.  Compute  the  JACOBIAN  matrix  DDSDDE(NTENS,NTENS) 
C NOTE:  DDSDDE  is  not  neccessarly  symmetric. 


C Calculate  the  tensor  product  of  RTEN  & FTEN  under  summation 
DO  2420  J=1,NTENS 
DO  2410  1=1, NTENS 
DDSDDE(I,J)=ZERO 
2410  CONTINUE 
2420  CONTINUE 


^ 3k  3k  3k  3(e  3(e  3|e  9|e  9k  ^ 3k  ^ ^ 3|c  ^ 3k  9k  He  ^ 3k  ^ 9k  3fe  3)e  3k  4c  ^ ^ He  ^ ^ ^ ^ ^ ^ 3|e  :|e  3fe  ^ Nc  3k  3|e  9)c  * 

C HERE  the  computation  is  done  in  ROW  order,  optimize  it. 

DO  2450  K=l, NSLIPS 
DO  2440  1=1, NTENS 
DO  2430  J=l, NTENS 

DDSDDE(J,I)=DDSDDE(J,I)+RTEN(I,K)*FTEN(J,K) 

2430  CONTINUE 
2440  CONTINUE 
2450  CONTINUE 

^3kHe3kHeHe3k3kHe3kHe3kHeHe3k3k3kHe9k3kHe3kHeHe3kHeHeHe3kHeHe3k3kHeHeHeHeHe3k9kHeHe3k3kHe3k3kHe3kHe3k9kHe3kHeHeHeHe3kHeHeHcHeHe3k3k3kHeHeHeHeHeHeHe3k3k3kHe 

DO  2470  J=l, NTENS 
DO  2460  1=1, NTENS 

DDSDDE(I,J)=ELASTM(I,J)-DDSDDE(I,J) 

2460  CONTINUE 
2470  CONTINUE 
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C Step  26.  Calculate  the  stress  increments  and  then  update. 
C NOTE  : The  stress  measure  used  is  KIRCHOFF  STRESS 


C Initialize  the  stress  increment  during  the  current  step  DSTRES 


DO  2510I=1,NTENS 
DSTRES(I)=ZERO 
2510  CONTINUE 


j|t**:|C***l|C*l|t**!|<>l<*>l<*>l<*******>l<*>l<**Hc>|C**>l<  ♦***♦*♦  **♦!(!♦♦*  ♦♦***>|CJ(C*!|Cj|C*)|!****i|<***  ******* 


C Calculate  DSTRES 

DO  2530  I=1,NTENS 
DO  2520J=1,NTENS 

DSTRES(I)=DSTRES(I)+DDSDDE(I,J)*DSTRAN(J) 

2520  CONTINUE 
2530  CONTINUE 

(^***************************************************************************** 
C CHECK  for  the  shear  components  of  RTEN. 

DO  2550K=1,NSLIPS 
DO  2540  I=1,NTENS 

DSTRES(I)=DSTRES(I)-RTEN(I,K)*FDOT(K)*DTIME 
2540  CONTINUE 
2550  CONTINUE 

^***************************************************************************** 
C Update  the  KIRCHOFF  STRESS  at  the  end  of  the  current  increment. 

DO  2560  I=1,NTENS 
STRESS(I)=STRESS(I)+DSTRES(I) 

2560  CONTINUE 


C Step  27.  Update  the  plastic  deformation  gradient  FPLAST  at  time  Tnp 


C Form  the  matrix  of  the  terms  in  the  summation  sign 
DO  26201=1,3 
DO  26101=1,3 
SUMM(I,J)=ZERO 
DFPLAT(I,J)=ZERO 
2610  CONTINUE 
2620  CONTINUE 


DO  2650  K=1,NSLIPS 
DO  2640  J=  1,3 
DO  26301=1,3 

SUMM(I,  J)=SUMM(I,  J)+DGAMMA(K)*  SDV(I,K)  * SNV(J,K) 

2630  CONTINUE 
2640  CONTINUE 
2650  CONTINUE 

Q :)e  :|e  % 3ie  4e  :fe  >K  lie  ic  4c  ^ ^ ^ ^ t * * * >|e  * >|c  4c  >1^  >1^  IK  4c  >l<  ^ ^ 4:  >|c 

C Calculate  the  increment  of  plastic  deformation  gradient. 

C Remove  DFPLAT  with  FPLAST  to  optimize  the  code 

^:)c4(4c4c4c:)c^4e4e3fc^4t9i(]|e4c4c4c4c4e4c4c4e4(4e4e9(c4c)|(4c4(:)c4(:(c4(4c4c4e4e4c4c4c4c4(4c4(4c4(4t:tc:|c:|e9ic3|c%:)c^3|c9|c3|e3|c9|c3ie}|(9|c9(ci{c9)(^j|c:)c>|cjic9|c9|c9|c:(c3ic 

DO  26031=1,3 
DO  2602  1=1,3 
DO  2601  K=l,3 
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DFPLAT(I,J)=DFPLAT(I,J)+SUMM(I,K)*FPLAST(K,J) 

2601  CONTINUE 

2602  CONTINUE 

2603  CONTINUE 

^*j|e**********l|t**  *♦♦****♦*♦*  j|!**l|<*l|<J|e********>|C>|C**********!tCi|C*****!(C*j|C*j|t***!|Ci|C**!|<**** 

C Update  the  plastic  deformation  gradient. 

DO  26051=1,3 
DO  2604 1=1,3 

FPLAST(I,J)=FPLAST(I,J)+DFPLAT(I,J) 

2604  CONTINUE 

2605  CONTINUE 


C Step  28.  Update  the  STATEV  array. 


C The  CRSS  G(NSLIPS)  and  the  shearings  GAMMA(NSLIPS)  are  set 
K=NSLIPS 
DO  2710  1=1, NSLIPS 
K=K+1 


STATEV(I)=G(I) 

STATEV(K)=GAMMA(I) 

2710  CONTINUE 

C The  inverse  of  plastic  deformation  gradient,  FIPLAT(3,3)  is  set 
K=2*NSLIPS 
DO  27301=1,3 
DO  2720  1=1,3 
K=K+1 

STATEV(K)=FPLAST(I,J) 

2720  CONTINUE 
2730  CONTINUE 

Q 3|c  3fc  3(C  ^ 3|e  3|c  3|C  3|c  iK  3k  >ic  3k  ifc  He  >ic  3k  ife  ^ * 4c  t :4c  9|C  9|e  )|C  )|e  )|e  9|C  })e  3|t  3^  He  ♦ )|e  3^  3)c  >|e  ^ ^ 4c  sic  3|e  3(c  >|c  % 

C store  the  unrotated  stress  to  compute  TAU  in  the  next  inc. 

K=2*NSLIPS+9 
DO  2750  I=1,NTENS 
K=K+1 

STATEV(K)=STRESS(I) 

2750  CONTINUE 

^ He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  3k  He  He  He  He  He  He  He  He  3k  He  He  He  He  He  He  He  He  He  He  H:  He  He  He  He 


RETURN 

END 


SUBROUTINE  CALSSNIAL(N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N1 1,N12,SD,SN) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  SD(3,MNSLIPS),SN(3,MNSLIPS) 

^:)c:(cHeHeHe3kHeHeHe3kHeHeHe3kHeHe3k3kHeHeHeHe3kHe3k3k3kHeHeHeHeHeHeHe3kHe3k3kHeHeHeHeHeHeHeHe3k3kHe3kHe3k3kHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHe3kHe 


K=1 

IF(N1.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=0.0D0 
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SD(3,K)=1.0D0 

SN(1,K)=1 ,0D0/DSQRT(2.0D0) 

SN(2,K)=1 ,0D0/DSQRT(2.0D0) 

SN(3,K)=0.0D0 

K=K+1 

ENDIF 

^j|C***!|<!|<**>|t*****%********!tt!(t***)|C!|C!|t*!|<*****!|c:|e>|t!|C!M<******j(c***!|!!|!***j|t***>|C>l<>|t****  *♦♦*♦** 

IF(N2.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=0.0D0 

SD(3,K)=1.0D0 

SN(  1 ,K)=- 1 ,0D0/DSQRT(2.0D0) 

SN(2,K)=1 ,0D0/DSQRT(2.0D0) 

SN(3,K)=0.0D0 

K=K+1 

ENDIF 

Q ***********  ***************  *****************  *******  ******  !|C1|C  *****  * 

IF(N3.EQ.0)THEN 

SD(1,K)=1.0D0 

SD(2,K)=0.0D0 

SD(3,K)=0.0D0 

SN(1,K)=0.0D0 

SN(2,K)=- 1 .0D0/DSQRT(2.0D0) 

SN(3,K)=1 ,0D0/DSQRT(2.0D0) 

K=K+1 

ENDIF 

^ **************************  S|C  **************  l|t  :|i  * S|I  Dl  ^ llcf  i|i  g)c  *******  S|I  I|c  H<  ***************  * 

IF(N4.EQ.0)THEN 

SD(1,K)=1.0D0 

SD(2,K)=0.0D0 

SD(3,K)=0.0D0 

SN(1,K)=0.0D0 

SN(2,K)=1 .0D0/DSQRT(2.0D0) 

SN(3,K)=1 ,0D0/DSQRT(2.0D0) 

K=K+1 

ENDIF 

(^* *************************************************************************** * 
IF(N5.EQ.0)THEN 
SD(1,K)=0.0D0 
SD(2,K)=1.0D0 
SD(3,K)=0.0D0 

SN(1,K)=1 ,0D0/DSQRT(2.0D0) 

SN(2,K)=0.0D0 

SN(3,K)=1 ,0D0/DSQRT(2.0D0) 

K=K+1 

ENDIF 

IF(N6.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=1.0D0 

SD(3,K)=0.0D0 
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SN(  1 ,K)=- 1 .0D0/DSQRT(2.0D0) 

SN(2,K)=0.0D0 

SN(3,K)=1 ,0D0/DSQRT(2.0D0) 

K=K+1 

ENDIF 

^******l|<l|CJ|.!|cj|.**)|<i(<*  + *****i|<!|C***********>l<>l<******«>|C!t!************>|C!|.*j|<****!|<*******!|C*  + 

IF(N7.EQ.0)THEN 

SD(1,K)=1.0D0 

SD(2,K)=0.0D0 

SD(3,K)=0.0D0 

SN(1,K)=0.0D0 

SN(2,K)=1.0D0 

SN(3,K)=0.0D0 

K=K+1 

ENDIF 

IF(N8.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=0.0D0 

SD(3,K)=1.0D0 

SN(1,K)=0.0D0 

SN(2,K)=1.0D0 

SN(3,K)=0.0D0 

K=K+1 

ENDIF 

^ I|C  >|i  III  i|i  lidc  Ik  H<  i)c  !|I  >l<  H<  ^ I*  >!<  * 4< « :|c  :|c  !|c  ^ 4<  Hdc  >|c  >|c:|c  ilcHi  He  i):  H<  41  * >|c  :)( :)!  i)c  i)c  4c  i)cs|i  >|c  3)C  1|CI|C  sic  s|c  :|c  i|c  * * * >l<  4: 

IF(N9.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=0.0D0 

SD(3,K)=1.0D0 

SN(I,K)=I.ODO 

SN(2,K)=0.0D0 

SN(3,K)=0.0D0 

K=K+1 

ENDIF 

^ »(c  :tc  }|(  )|C  4c  9|C :)( 9|C  9|C  )|C  9|C  ^ sfc  9|C  :i(  ^ :4c  3|(  )|C  :|e  % ]|C  3|C  ^ sK  He  ^ s|e  }|c  }|c  9)C  9|C :)(:(( 4e  )|(  }|C  )(C  »ie  % )|e  :|c  :|c  :|t  9|e  9|e  9|c  sic  ^ 9|C  9|C  }|c  3|C  9|(  9K  ^ 9f(  )|C  9|C  :|s  9ie  9|(  9|e  a|(  ^ 

IF(N10.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=1.0D0 

SD(3,K)=0.0D0 

SN(1,K)=1.0D0 

SN(2,K)=0.0D0 

SN(3,K)=0.0D0 

K=K+1 

ENDIF 

^ He  He  Ik  He  Ik  He  He  He  He  He  He  He  He  He  He  H>  H>  He  He  He  He  He  He  He  He  He  He  He  He  Hi  >k  He  He  He  H<  He  He  He  H<  He  He  He  He  He  Ik  >l"|i  He  He  He  He  H<  H<  He  He  He  He  H<  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He 

IF(N1I.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=I.0D0 

SD(3,K)=0.0D0 

SN(I,K)=O.ODO 
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SN(2,K)=0.0D0 

SN(3,K)=1.0D0 

K=K+1 

ENDIF 

IF(N12.EQ.0)THEN 

SD(1,K)=1.0D0 

SD(2,K)=0.0D0 

SD(3,K)=0.0D0 

SN(1,K)=0.0D0 

SN(2,K)=0.0D0 

SN(3,K)=1.0D0 

K=K+1 

ENDIF 

^9|e>fe9ie9ic>|c>|c9)c:tG3^:4e3|c3)c:fe:fc>|e9|c4e>fe9|ci|c3|c9|e]fti|e4c3fe:(c:4e:)cie9|e3K:)c3|c:4e%)(e:fe4c3(e:|c3fc3K3|‘*3(c%**4c*3fc*3|(9|«9|(3K3)c4c9|‘>ie3|c%*3fc3fe’)c3)c’|c9fe%%*>K 

RETURN 

END 


SUBROUTINE  CALSSFCC(NF1,NF2,NF3,NF4,NF5,NF6,NF7,NF8,NF9,NF10,NFI  1, 

+ NF12,SD,SN) 

INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  SD(3,MNSLIPS),SN(3,MNSLIPS) 

^ :fc  :{c  4c  1 1 ^ 3k  3|c  3|c  3|c  3|C  1 1 ^ 1 9|e  )|C  )|C  a|e  jfc  9|C  ^ :|c  :4c  9)C  3)e  3fc  iK  3|c  3|c  3|c  3k  3(e  3|c  9)(  * % i)e  i)c  >(e  :(c  ^ 3(C  * 

K=1 

IF(NF1.EQ.0)THEN 
SD(1,K)=1 ,0D0/DSQRT(2.0D0) 

SD(2,K)=-1 ,0D0/DSQRT(2.0D0) 

SD(3,K)=0.0D0 

SN(  1 ,K)=  1 ,0D0/DSQRT(3  .ODO) 

SN(2,K)=  1 ,0D0/DSQRT(3  .ODO) 

SN(3,K)=1 ,0D0/DSQRT(3.0D0) 

K=K+1 

ENDIF 

^ 4e  4(  4c  4(  4c  4c  4e  % 4c  4e  4e  4e  4c  4e  4c  4c  4c  4c  3k  4c  4c  4c  3k  4c  4c  3k  3k  9k  9k  % 4c  >k  4«  4«  % * 3k  3k  % 4c  >k  4(  * 9fc  * 9k  % % 4c  3k  9k  3k  * 9fc  9fc  9fc  4c  9k  4c  4c  * 4c  4c  4c  4c  4«  4c  4c  3fc  4c  4c  * 4c  * % * 4c 

IF(NF2.EQ.0)THEN 

SD(  1 ,K)=  1 ,0D0/DSQRT(2.0D0) 

SD(2,K)=0.0D0 

SD(3,K)=-1 ,0D0/DSQRT(2.0D0) 

SN(  I ,K)=  1 ,0D0/DSQRT(3  .ODO) 

SN(2,K)=  1 .0D0/DSQRT(3  .ODO) 

SN(3,K)=1 .0D0/DSQRT(3.0D0) 

K=K+1 

ENDIF 

IF(NF3.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=-1 .0D0/DSQRT(2.0D0) 

SD(3,K)=I  .0D0/DSQRT(2.0D0) 

SN(  I ,K)=  1 .0D0/DSQRT(3  .ODO) 
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SN(2,K)=1 ,0D0/DSQRT(3.0D0) 

SN(3,K)=1 ,0D0/DSQRT(3.0D0) 

K=K+1 

ENDIF 

(^♦************>tCi|C»***!("****H‘***>l<**!|<***>l<*!|<******************************!(C****!|==|t** 

IF(NF4.EQ.0)THEN 
SD(1,K)=1 ,0D0/DSQRT(2.0D0) 

SD(2,K)=-1 ,0D0/DSQRT(2.0D0) 

SD(3,K)=0.0D0 

SN(  1 ,K)=- 1 ,0D0/DSQRT(3  .ODO) 

SN(2,K)=- 1 ,ODO/DSQRT(3  .ODO) 

SN(3  ,K)=  1 ,ODO/DSQRT(3  .ODO) 

K=K+1 

ENDIF 

^ i|:  i|E  ;|i  t Itc*  K"):  >(1  >!<  >l<  >K  3|<  ^ 3):  >1:  3):  t >|c  ^ H<  H<  i|>  Hi  if:  >1:  >l<  % % 4<  >l<  ^ >11 4: 1):  % >1:  Hi  H<  1 1 4<  ^ ^ >1:  >l<  * 4=  * * 

IF(NF5.EQ.O)THEN 
SD(1  ,K)=1 .0D0/DSQRT(2.0D0) 

SD(2,K)=0.0D0 

SD(3,K)=1 .0D0/DSQRT(2.0D0) 

SN(  1 ,K)=- 1 .ODO/DSQRT(3  .ODO) 

SN(2,K)=-1 .0D0/DSQRT(3.0D0) 

SN(3  ,K)=  1 .ODO/DSQRT(3  .ODO) 

K=K+1 

ENDIF 

^ 3ic  3|e  3|c  3(c  3|C  ]|c  3|C  3^  4c  3|c  * it  * 4c  :|c  >|c  9|C  3)C  :|e  :fe  % :|E  9K  3|C  3|c  3^  1 4c  4c  4c  :|e  3fc  ^ 9)e  3|e  3ic  )|C  )|C  :|e  :4c  3te  :fe  ]fe  9fc  3|C  ^ SK  % 3|e  >|C  * * 4c  % 

IF(NF6.EQ.0)THEN 

SD(l,K)=O.ODO 

SD(2,K)=1 .0D0/DSQRT(2.0D0) 

SD(3,K)=1 .0D0/DSQRT(2.0D0) 

SN(  1 ,K)=- 1 .ODO/DSQRT(3  .ODO) 

SN(2,K)=- 1 .ODO/DSQRT(3  .ODO) 

SN(3  ,K)=  1 .ODO/DSQRT(3  .ODO) 

K=K+1 

ENDIF 

Q 3K  3)3  3)3  3|I  3|I  3|I  3)1  3|I  3|C  3|E  3|I  3|t  3tl  3|I  3|I  3|I  3|C  3|C  3|C  3):  3(t  3|<  3|C  3)C  3|C  I|I  B|C  B|C  3|<  B|<  B|I  B|C  B|C  3|C  3|t  3|C  3|C  3|C  3|C  3|C  3|C  3|I  3|C  3)1  3|I  3|I  3|C  3|c  3)1  3)1  3)1  3)C  3|C  3|C  3|C  3|C  3|C  3|C  3|<  3|S  3|<  3)3  3|C  3)e  3|C  3|C  3|C  3|<  3|I  3|I  3|C  3|I  ;|c  I|CI|I  3K  3|3 

IF(NF7.EQ.0)THEN 
SD(  1 ,K)=  1 .0D0/DSQRT(2.0D0) 

SD(2,K)=1 .0D0/DSQRT(2.0D0) 

SD(3,K)=0.0D0 

SN(  1 ,K)=  1 .ODO/DSQRT(3  .ODO) 

SN(2,K)=- 1 .ODO/DSQRT(3  .ODO) 

SN(3  ,K)=  1 .ODO/DSQRT(3  .ODO) 

K=K+1 

ENDIF 

^3|c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4csfc4c4c4c4c4c4c4c4c4c3fc3tc4c4c4c4c4c4c 

IF(NF8.EQ.O)THEN 
SD(  1 ,K)=  1 .0D0/DSQRT(2.0D0) 

SD(2,K)=0.0D0 

SD(3,K)=-1 .0D0/DSQRT(2.0D0) 

SN(  1 ,K)=  1 .ODO/DSQRT(3  .ODO) 

SN(2,K)=- 1 .ODO/DSQRT(3  .ODO) 
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SN(3,K)=1 ,0D0/DSQRT(3.0D0) 

K=K+1 

ENDIF 

IF(NF9.EQ.0)THEN 

SD(1,K)=0.0D0 

SD(2,K)=  1 .0D0/DSQRT(2.0D0) 

SD(3,K)=1 ,0D0/DSQRT(2.0D0) 

SN(  1 ,K)=  1 ,0D0/DSQRT(3  .ODO) 

SN(2,K)=- 1 .ODO/DSQRT(3  .ODO) 

SN(3,K)=1 .0D0/DSQRT(3.0D0) 

K=K+1 

ENDIF 

(^*>l«!(t*>(<****>l<**>l<!|<!tt*>l<*!tt>|t***l|<*******>l‘***!|<>l<*>l<*l|C****>fCl|t*******************!t!*!(!**!|C!|CJ|C!|t!|tl|< 

IF(NF10.EQ.0)THEN 

SD(  1 ,K)=1 ,0D0/DSQRT(2.0D0) 

SD(2,K)=1 ,0D0/DSQRT(2.0D0) 

SD(3,K)=O.ODO 

SN(  1 ,K)=  1 ,ODO/DSQRT(3  .ODO) 

SN(2,K)=- 1 .ODO/DSQRT(3  .ODO) 

SN(3,K)=-1 .0D0/DSQRT(3.0D0) 

K=K+1 

ENDIF 

^ ^ :fc  :fe  :4c  :(e  4c  9|e  ^ 9|c  3(e  3|(  3|c  :|e  :4c  :4c  :|e  :4c :|c  :4c  4c  3)c  9|e :)( 3|c :)(  4e  sfe  3fe  9|c  3|c  9|e  9fc  3K  4c  3^  He  * 3|e  3fc  9|c  9|c  3ie  j|c  t * 

IF(NFIl.EQ.O)THEN 

SD(  1 ,K)=  1 .0D0/DSQRT(2.0D0) 

SD(2,K)=0.0D0 

SD(3,K)=1 .0D0/DSQRT(2.0D0) 

SN(  I ,K)=  I .ODO/DSQRT(3  .ODO) 

SN(2,K)=-1 .0D0/DSQRT(3.0D0) 

SN(3,K)=- 1 .ODO/DSQRT(3  .ODO) 

K=K+1 

ENDIF 

Q***************************************************************************** 

IF(NF12.EQ.0)THEN 

SD(I,K)=O.ODO 

SD(2,K)=I  .0D0/DSQRT(2.0D0) 

SD(3,K)=-1 .0D0/DSQRT(2.0D0) 

SN(  I ,K)=  I .ODO/DSQRT(3  .ODO) 

SN(2,K)=-1 .0D0/DSQRT(3.0D0) 

SN(3  ,K)=- 1 .ODO/DSQRT(3  .ODO) 

K=K+1 


ENDIF 

^ 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  He  4c  4c  4c  4c  He  4c  4c  4c  4e  4c  4c  4<  4c  4c  4c  4c  4c  He  He  % He  4«  He  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4<  4«  4c  4c  4: 4«  4«  4c  4e  4c  4c  4c  4c 

RETURN 

END 

SUBROUTINE  C0NSLIPSYS(SD,SN,CMC1 1,CMCI2,CMCI3,CMC2I,CMC22,CMC23, 

+ CMC3I,CMC32,CMC33,NSLIPS,SDV,SNV) 


C Subroutine  CONSLIPSYS  will  calculate  slip  systems  w.r.t  the  global  coord,  system 


165 


^ s|t  1): >|c  >|<  i|c  iK  Hi  4c  ^ >1:  >l<  >l<  H<  * * >l<  H<  !|<  I):  !|<  >)<  H<  >|c  H<  >l<  >k  « !|c  >|t  ^ :|c  s|<  * >l<  If  ^ >|c >l<  >l<  »"l<  « 4<  * S|<  * >l<  * >i<  Hi  4!  >)!  NC « >|t  3|c  % iK  * * « « 

INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  SDV(3  ,MNSLIPS),SNV(3  ,MNSLIPS) 

DIMENSION  SD(3  ,MNSLIPS),SN(3  ,MNSLIPS) 

^ H<  H<  H<  * H<  Hi  H<  H<  Hi  Hi  H<  H<  H<  H<  Hi  Hi  H<  H<  H<  Hi  Hi  Hi  H<  H<  H<  H<  H<  H<  H<  Hi  H<  Hi  H<  H<  * H<  H<  H<  H<  H<  H<  * H<  H<  H<  H<  H<  H<  Hi  H<  Hi  Hi  H<  H<  H<  Hi  H<  H<  H<  H<  H<  Hi  Hi  Hi  H<  H<  He  Hi  H<  H<  H<  H<  * Hi  * Hi  * 

DO  II  K=1,NSLIPS 

SDV(  1 ,K)=SD(  1 ,K)*CMC  1 1 +SD(2,K)*CMC  1 2+SD(3,K)*CMC  1 3 
SDV(2,K)=SD(  1 ,K)*CMC2 1 +SD(2,K)*CMC22+SD(3,K)*CMC23 
SDV(3,K)=SD(I,K)*CMC31+SD(2,K)*CMC32+SD(3,K)*CMC33 
SNV(  1 ,K)=SN(  I ,K)*CMC  1 1 +SN(2,K)*CMC  1 2+SN(3  ,K)*CMC  1 3 
SNV(2,K)=SN(I,K)*CMC21+SN(2,K)*CMC22+SN(3,K)*CMC23 
SNV(3,K)=SN(I,K)*CMC3I+SN(2,K)*CMC32+SN(3,K)*CMC33 
11  CONTINUE 

Hi  Hi  * * Hi  * * * * H<  * * Hi  Hi  * Hi  Hi  Hi  Hi  * * Hi  * * * * Hi  * * * * * * Hi  * * * * ♦ * Hi  Hi  Hi  Hi  Hi  * * Hi  * * * Hi  * * * * * * * Hi  * * * * * Hi  * Hi  He  * * ♦ * * Hi  H<  * 


RETURN 

END 


SUBROUTINE  GAMDOT  (TAU,G,GDOTT,SRS,ADOT,NSLIPS) 


C Subroutine  GAMDOT  will  calculate  the  rate  of  shearing  on  each  slip  system 
C at  the  beginning  of  each  increment  i.e  tn  based  on  the  values  at  time  tn  of  the 
C resolved  shear  stresses  and  the  critical  resolved  shear  stresses 
C In  this  subroutine  GDOTTI  and  GDOTT2  are  the  shearing  rates  at  time  tn 


INCLUDE  ’ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  TAU(MNSLIPS),G(MNSLIPS),GDOTT(MNSLIPS) 

DIMENSION  TAUOG(MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

^HiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHiHi 

C Compute  the  exponential. 

EXPONT=(ONE/SRS)-ONE 
C Compute  TAU  over  G 
DO  10  I=1,NSLIPS 
TAUOG(I)=TAU(I)/G(I) 

10  CONTINUE 

C Compute  GDOTT 
DO  30  I=I,NSLIPS 

GDOTT(I)=(ADOT*TAUOG(I))*((DABS(TAUOG(I)))**EXPONT) 

30  CONTINUE 

RETURN 

END 


SUBROUTINE  QTENSO  (GDOTT, TAU, PHIDT,SRS,RTEN,QTEN,NSLIPS,NTENS) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  GDOTT(MNSLIPS),TAU(MNSLIPS),RTEN(MDIM,MNSLIPS), 
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+ QTEN(MDIM,MNSLIPS) 

DIMENSION  COEFF(MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

C Calculate  the  coefficient  of  RTEN 
DO  10I=1,NSLIPS 

C0EFF(I)=(PHIDT*GD0TT(I))/(SRS*TAU(I)) 

10  CONTINUE 

C Compute  QTEN(6,NSLIPS) 

DO  30K=1,NSLIPS 
DO  20  I=1,NTENS 
QTEN(I,K)=COEFF(K)*RTEN(I,K) 

20  CONTINUE 
30  CONTINUE 

RETURN 

END 


SUBROUTINE  SMATRX  (GDOTT, RTEN, PTEN, TAU,G,HARDM,NSLIPS,PHIDT,SRS, 
1 SLIPMM,NTENS,NDI) 

INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  GDOTT(MNSLIPS),RTEN(MDIM,MNSLIPS),PTEN(MDIM,MNSLIPS), 

1 TAU(MNSLIPS),G(MNSLIPS),HARDM(MNSLIPS,MNSLIPS) 

DIMENSION  SLIPMM(MNSLIPS,MNSLIPS),FACT(MNSLIPS), 

1 SLIPNM(MNSLIPS,MNSLIPS),RPSCAL(MNSLIPS,MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

C Compute  the  multiplicative  factor  before  the  square  bracket. 

DO  10  I=1,NSLIPS 
FACT(I)=(PHIDT*GDOTT(I))/SRS 
10  CONTINUE 

C Compute  the  scalar  product  of  RTEN  & PTEN. 

C Note  that  since  PTEN  is  represented  as  STRAN  with  engineering  shear  components, 

C there  is  no  need  to  multiply  with  2 for  scalar  product  in  shear  components 
DO  30  J=1,NSLIPS 
DO  20  I=1,NSLIPS 
RPSCAL(I,J)=ZERO 
20  CONTINUE 
30  CONTINUE 
DO  60  K=1,NSLIPS 
DO  50  L=1,NSLIPS 
DO  40  I=1,NTENS 

RPSCAL(L,K)=RPSCAL(L,K)+RTEN(I,L)*PTEN(I,K) 

40  CONTINUE 
50  CONTINUE 
60  CONTINUE 
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C Compute  SLIPNM 
DO  130  J=1,NSLIPS 
DO  120I=1,NSLIPS 
IF  (I.EQJ)  THEN 

SLIPNM(I,J)=ONE+FACT(I)*((RPSCAL(I,J)/TAU(I))+ 

1 (TAU(J)/DABS(TAU(J)))*(HARDM(I,J)/G(I))) 

ELSE 

SLIPNM(I,J)=FACT(I)*((RPSCAL(I,J)/TAU(I))+ 

1 (TAU(J)/DABS(TAU(J)))*(HARDM(I,J)/G(I))) 

END  IF 

120  CONTINUE 
130  CONTINUE 

^***************>l"*!|t***!|C*>tC*!|t!t!********!MC******!|!>|t****>l<>l<***>l"*>l«****************!|C!|CS|e* 

C Invert  SLIPNM  using  the  standard  elimination  procedures.  SLIPMM  calculated 

^:fc3)e:tc:4c:^:fc:|c:{c:te9|c:fc9fes|c3|e3^:4c9^3|c:^:fe3|e:4e9|c)|c3|e9|e3|c:|c9fc:^:4c:4c4c3fc9|c%t>|c3ic>ic3tc>|c4c3)c3)e9^4e>(e)|e:(c)|e)fe)|e9)c9)e9|e3|e4eife4c4c3ic3fc3ie9ie4e:^:t:%%)^ 

IF  (NSLIPS  .EQ.  2)THEN 

DETMNT=(SLIPNM(  1 , 1 )*SLIPNM(2,2))-(SLIPNM(2, 1 )*SLIPNM(  1 ,2)) 

SLIPMM(  1 , 1 )=SLIPNM(2,2)/DETMNT 
SLIPMM(2, 1 )=-SLIPNM(2, 1 )/DETMNT 
SLIPMM(  1 ,2)=-SLIPNM(l  ,2)/DETMNT 
SLIPMM(2,2)=SLIPNM(  1 , 1 )/DETMNT 
ELSE 

CALL  FINVRST(SLIPNM, SLIPMM, NSLIPS) 

END  IF 

>l«  ***  Ht**  H«  >K  ***  ****♦**  + **********♦**♦************♦  H<  ************  >|!  s(!  **********  * 

RETURN 

END 


SUBROUTINE  FDOTS  (SLIPMM, GDOTT,FDOT, NSLIPS) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  SLIPMM(MNSLIPS,MNSLIPS),GDOTT(MNSLIPS),FDOT(MNSLIPS) 
PARAMETER  (ZERO=O.ODO,ONE=  1 ,0D0,TWO=2.0D0,THREE=3  .ODO) 

DO  10  1=1, NSLIPS 
FDOT(I)=ZERO 
10  CONTINUE 

^:|c:t(:)c:t(:)c:(c9|e)|c:|c4c)|(3)(9)c:4c^4c9(c^4c^4ci|c:]e%^3|ca|c]|t]|e)|c9(c:|c)|c}|c3|e4c9|(:(c:)e%)|e^»|c%:(c:|c9|e:)c:|(:4c:|(:)c^s|c:{e)|c:|c:|cs|c)|c^9|c:|c^^i|c9jc:{c:fe:{t^sie:(c:(c:|(^9i( 


DO  30  J=l, NSLIPS 
DO  20  1=1, NSLIPS 

FDOT(J)=FDOT(J)+SLIPMM(J,I)*GDOTT(J) 
20  CONTINUE 
30  CONTINUE 


RETURN 

END 

SUBROUTINE  FTENSO  (SLIPMM,QTEN,FTEN,NSLIPS,NTENS) 
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INCLUDE  'ABA  PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  SLIPMM(MNSLIPS,MNSLIPS),QTEN(MDIM,MNSLIPS), 
1 FTEN(MDIM,MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

C Initialize  FTEN 
DO  20  K=1,NSLIPS 
DO  10  I=1,NTENS 
FTEN(I,K)=ZERO 
10  CONTINUE 
20  CONTINUE 
C Calculate  FTEN. 

DO  50  L=1,NSLIPS 
DO  40  I=1,NTENS 
DO  30  K=1,NSLIPS 

FTEN(I,L)=FTEN(I,L)+SLIPMM(L,K)*QTEN(I,K) 

30  CONTINUE 
40  CONTINUE 
50  CONTINUE 

RETURN 

END 

SUBROUTINE  LATVEC  (FELAST,SDV,SNV,SDVSTR,SNVSTR,NSLIPS) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  FELAST(3, 3), SDV(3,MNSLIPS),SNV(3,MNSLIPS), 

1 SDVSTR(3,MNSLIPS),SNVSTR(3,MNSLIPS) 

DIMENSION  FIELAT(3,3) 

^9}c3K:4c3)c9|i:4t3fc>(e9|e3|e4c)|e)fc9|e9^9|e9|c9|e9tc9K9K9)e9|c9|c3fc:|c3K3|c«ifc:4c3|C3|e3|c9ic9|c3|c3ie3K3k>|e:4c4c3k>K’k3ic9fe3fc3i(3ic*3ic4c*3|c3ic3ic3ic:4c4c»ic9ic3ic9!c%%3|c^9ic%^ 


PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

PARAMETER  (M=3) 

C Compute  the  inverse  of  FELAST,  i.e  FIELAT 
CALL  FINVRST  (FELAST, FIELAT, M) 

^ s|c  s|c  If  * >l<  >l<  IK  « * « >|C  « >l< « * >i<  « * >|c  I):  4:  i|<  * * * * >l<  >l<  * iK  * * * >!<  * I|<  >1:  >!<  >l<  * * * >l<  >1: >1:  + 4:  * >i<  * * * * * 

C Initialize 


DO  20  K=1,NSLIPS 
DO  101=1,3 
SDVSTR(I,K)=ZERO 
SNVSTR(I,K)=ZERO 
10  CONTINUE 
20  CONTINUE 

Q If  If  1|C  If  1|E  If  Hcif  If  If  If  If  If  ^ If  If  If  If  t >i<  If  I|<  >f  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  If  * f If  If  4<  If  If  If  If  N<  If  If  If  * If 


C Compute 

DO  50  K=1,NSLIPS 
DO  40  J=l,3 
DO  301=1,3 
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SDVSTR(J,K)=SDVSTR(J,K)+FELAST(J,I)*SDV(I,K) 

SNVSTR(J,K)=SNVSTR(J,K)+SNV(I,K)*FIELAT(I,J) 

30  CONTINUE 
40  CONTINUE 
50  CONTINUE 

(^  *******  >l<  ***  ***********  1|<  >l<  ********♦**♦♦  **********  >l>  **>l<  ************  ********  * 

C SDVSTR  & SNVSTR  are  being  normalized. 

C NOTE:  by  normalizing  there  was  little  change  in  the  solution. 
^***************************************************************************** 
RETURN 
END 


SUBROUTINE  PROSDN  (SDVSTR, SNVSTR,PDINOT,PNODIT,NSLIPS) 


C Subroutine  PROSDN  computes  the  product  of  vectors  SDVSTR  & SNVSTR 
^***************************************************************************** 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  SDVSTR(3,MNSLIPS),SNVSTR(3,MNSLIPS) 
DIMENSION  PDINOT(9,MNSLIPS),PNODIT(9,MNSLIPS) 
PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

C Calculate  the  tensor  product  PDINOT  of  vectors  SDVSTR  & SNVSTR 
DO  30  K=1,NSLIPS 
N=0 


DO  20  J=l,3 
DO  101=1,3 
L=N+I 


PDINOT(L,K)=SDVSTR(I,K)*SNVSTR(J,K) 
PNODIT(L,K)=SNVSTR(I,K)*SDVSTR(J,K) 
10  CONTINUE 
N=N+3 

20  CONTINUE 
30  CONTINUE 
C 

RETURN 

END 


SUBROUTINE  SCHMIP  (PDINOT,PNODIT,PTEN,NSLIPS,NDI) 


INCLUDE  'ABA  PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  PDINOT(9,MNSLIPS),PNODIT(9,MNSLIPS),PTEN(MDIM,MNSLIPS) 
PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

C Compute  PTEN(6,2)  like  STRESS(NTENS) 

IF  (NDI.EQ.3)THEN 
DO  10K=1,NSLIPS 

PTEN(1  ,K)=(ONE/TWO)*(PDINOT(l  ,K)+PNODIT(l  ,K)) 
PTEN(2,K)=(ONEmVO)*(PDINOT(5,K)+PNODIT(5,K)) 
PTEN(3,K)=(ONE/TWO)*(PDINOT(9,K)+PNODIT(9,K)) 


170 


PTEN(4,K)=(PDINOT(2,K)+PNODIT(2,K)) 

PTEN(5,K)=(PDINOT(3,K)+PNODIT(3,K)) 

PTEN(6,K)=(PDINOT(6,K)+PNODIT(6,K)) 

10  CONTINUE 
ELSE 

DO  20  K=1,NSLIPS 

PTEN(  1 ,K)=(ONE/TWO)*(PDINOT(  1 ,K)+PNODIT(  1 ,K)) 
PTEN(2,K)=(ONE/TWO)*(PDINOT(5,K)+PNODIT(5,K)) 
PTEN(3,K)=(PDINOT(2,K)+PNODIT(2,K)) 

20  CONTINUE 
END  IF 

(^*  **  *******  I)"*  *******♦♦*  ******************  ***********  ************  **♦*****=(!*  * 

RETURN 

END 


SUBROUTINE  SCHMIW  (PDINOT,PNODIT,WTEN,NSLIPS) 


C Subroutine  calculates  WTEN(9,MNSLIPS) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  PDINOT(9,MNSLIPS),PNODIT(9,MNSLIPS),WTEN(9,MNSLIPS) 
PARAMETER  (ZERO=O.ODO,ONE=1 ,0D0,TWO=2.0D0,THREE=3.0D0) 

^ ^ ]|e  3|e  afe  3(c  }|c  3|c  3|c  4c  4c  ifc  :fc  )|c  :)c  :fc  ]<e  He  )|e  3|c  3|e  ifc  ifc  3|c  )|c  3|c  3|c  9|c  3|c  4c  4c  :)c  3(c  ])c  )|c  9|c  >|e  9|c  >|G  i(e  )|c  3|c  3k  3)c  3|c  3)e  ^ 3|c  }|c  >|c  % ^ a)e  % 3|c  }|c  3)c 


DO  20K=1,NSLIPS 
DO  101=1,9 

WTEN(I,K)=(ONE/TWO)*(PDINOT(I,K)-PNODIT(I,K)) 

10  CONTINUE 
20  CONTINUE 

^3fc4c4c4c4c4c4c4c3|e4e4c4e4e4c4<4c4c4c4c4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4c4e4c4c4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4e4c4c4c4c4c4c4c4e4e4e4e4e4e4e4e4e 


RETURN 

END 


SUBROUTINE  BETA  (WTEN, STRESS, NTENS,BTEN,NSLIPS,NDI) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  WTEN(9,MNSLIPS),STRESS(NTENS),BTEN(MDIM,MNSLIPS) 
DIMENSION  TRBTEN(9,MNSLIPS),DUMMYB(9,MNSLIPS),DUMMYT(9) 
PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 


C Convert  the  array  STRESS(NTENS)  to  a dummy  tensor  DUMMYT(9) 
IF  (NTENS  .EQ.  6)THEN 
DUMMYT(  1 )=STRESS(  1 ) 

DUMMYT(2)=STRESS(4) 

DUMMYT(3)=STRESS(5) 

DUMMYT(4)=STRESS(4) 

DUMMYT(5)=STRESS(2) 

DUMMYT(6)=STRESS(6) 

DUMMYT(7)=STRESS(5) 

DUMMYT(8)=STRESS(6) 
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DUMMYT(9)=STRESS(3) 

ELSE  IF  (NTENS  .EQ.  4)THEN 
DUMMYT(  1 )=STRESS(  1 ) 

DUMMYT(2)=STRESS(4) 

DUMMYT(3)=ZER0 

DUMMYT(4)=STRESS(4) 

DUMMYT(5)=STRESS(2) 

DUMMYT(6)=ZER0 

DUMMYT(7)=ZERO 

DUMMYT(8)=ZER0 

DUMMYT(9)=STRESS(3) 

ELSE 

DUMMYT(  1 )=STRESS(  1 ) 

DUMMYT(2)=STRESS(3) 

DUMMYT(3)=ZER0 

DUMMYT(4)=STRESS(3) 

DUMMYT(5)=STRESS(2) 

DUMMYT(6)=ZER0 
DUMMYT(7)=ZER0 
DUMMYT(8)=ZERO 
DUMMYT(9)=ZERO 
END  IF 

C Initialize  BTEN 
DO  20  K=1,NSLIPS 
DO  101=1,9 
DUMMYB(I,K)=ZERO 
10  CONTINUE 
20  CONTINUE 

C Computes  the  product  of  tensors  WTEN*STRESS 
N=0 

DO  70  K=1,NSLIPS 
M=0 

DO  60  J=l,3 
DO  30  1=1,3 
L1=M+I 
L2=N+I 

DUMMYB(L2,K)=DUMMYB(L2,K)+WTEN(L1,K)*DUMMYT(J) 

30  CONTINUE 
M=M+I 

60  CONTINUE 
N=N+J 

70  CONTINUE 

C Calculate  the  product  STRESS*WTEN.  This  is  simply  minus  times  transpose  of 

C WTEN*STRESS  i.e  minus  times  transpose  of  the  above  calculated 

C DUMMYB  stored  as  TRBTEN(9,NSLIPS) 

DO  180K=1,NSLIPS 
TRBTEN(  1 ,K)=-DUMMYB(  1 ,K) 
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TRBTEN(2,K)=-DUMMYB(4,K) 

TRBTEN(3,K)=-DUMMYB(7,K) 

TRBTEN(4,K)=-DUMMYB(2,K) 

TRBTEN(5  ,K)=-DUMMYB(5  ,K) 

TRBTEN(6,K)=-DUMMYB(8,K) 

TRBTEN(7,K)=-DUMMYB(3  ,K) 

TRBTEN(8,K)=-DUMMYB(6,K) 

TRBTEN(9,K)=-DUMMYB(9,K) 

180  CONTINUE 

^^4c^^3|e:ic9ie3i(9ici|c:ie3ic)|c9|(9|c)|e)|c9|e:)c%9|c^}|(3K9|c4ct>|t*)tc:ie^%9|e9|e3K4c9|c9(c4csfc:|c:)c^9)c%9fc9|c9|(3|c:|c3|c9|ciic9)c)fc9fcsic)|(:te»|()|c9{c:)c9K3K9f«4c>|c3|c:|«9fc»fc*9)c3fe^ 

C Calculate  the  DUMMYB  by  subtracting  TRBTEN  from  DUMMYB 
DO210K=l,NSLIPS 
DO  2001=1,9 

DUMMYB(I,K)=DUMMYB(I,K)-TRBTEN(I,K) 

200  CONTINUE 
210  CONTINUE 

(|^***>|t*!|=*****lMt!|tJ|t!)C!|<!|t!|<***********>l"******l(!**!|C*l|!S|CJ|t!|t!|l!|tl|i***j|C*!(!**!|<******!)t**********>l<!|t 

C since  the  resulting  DUMMYB  is  symmetric  it  is  set  as  BTEN(6,2) 

C analogous  to  STRESS(NTENS) 

IF  (NDI  ,EQ.3)THEN 
DO  220  K=1,NSLIPS 
BTEN(  1 ,K)=DUMMYB(  1 ,K) 

BTEN(2,K)=DUMMYB(5,K) 

BTEN(3,K)=DUMMYB(9,K) 

BTEN(4,K)=DUMMYB(4,K) 

BTEN(5  ,K)=DUMMYB(7,K) 

BTEN(6,K)=DUMMYB(8,K) 

220  CONTINUE 
ELSE 

DO  230K=1,NSLIPS 
BTEN(  1 ,K)=DUMMYB(  1 ,K) 

BTEN(2,K)=DUMMYB(5,K) 

BTEN(3,K)=DUMMYB(4,K) 

230  CONTINUE 
END  IF 

^ 3(e  9{c  )|e  9fe  :fe  )|c  9|e  9|c  9^  4c  3^  :4c  )|e  :|e  ^ 3k  ^ % 4c  3|c  3|c  4c  * * 4c  :)e  :te  9|e  9|c  He  9fe  j|c  :4c  4e  3)e  % ^ % 9|e  9|«  9|e  9|c  ^ 4c  3(c  * 3|c  3|c  3fe  3lc  9k  % >f:  3|c  % 

RETURN 

END 


SUBROUTINE  HCURVM(TGAMMA1  ,TGAMMA2,HARDM,H0,TAUS,TAU0,QA, 
+ QB,QAB,QBA,NSLIPS,NSLIPS  1 ,NTENS,Q) 


C This  subroutine  computes  the  hardening  matrix  HARDM(NSLIPS,NSLIPS)  for  NiAl 
C 

INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  HARDM(MNSLIPS,MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=1 ,0D0,TWO=2.0D0,THREE=3  .ODO) 

^ I|M)I  l|c i|t  >|t  s|c  i|<  Ht  He  >l<  * >l<  >l<  H<  >l<  >)< « If  >l<  >l<  >t<  >l<  « « I):  Ik  « >l<  >!<  Ik  s|i  « « III  >|c  >|c  :)c:|e  i|c  H<  >)!  H<  H<  !|<  >l<  >|C  >l<  !|< ’ll  « >l<  >|t  >l<  IK  * * >):  >):  * * * * >K  * * 

C HI  is  hardening  rate  for  {110}  plane 
C H2  is  hardening  rate  for  {100}  plane 
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(~;^<*j|<*M<***>lc**!H!K*****iH**Mc***>tc***!|<*Hc>|c***>H****>K**>l<**>|t*****iH*********>l=****:|c*******!|c 

NSLIPS2=NSLIPS1+1 

H1=HO*((ONE/DCOSH((HO*TGAMMA1)/(TAUS-TAUO)))**TWO) 

H2=HO*((ONE/DCOSH((HO*TGAMMA2)/(TAUS-TAUO)))**TWO) 

C Calculate  the  hardening  matrix 

IF  (NTENS.EQ.6  .AND.  NSLIPS.NE.2)  THEN 
DO  20K=1,NSLIPS1 
DO  10L=1,NSLIPS1 
IF  (L.EQ.K)  THEN 
HARDM(L,K)=H1 
ELSE 

HARDM(L,K)=QA*H1 
END  IF 

10  CONTINUE 
20  CONTINUE 

(^* ******* *!(C*  IK* **♦*******♦******♦*♦♦♦*♦* ♦*♦****♦*♦* !(C >|t * sltJlt*** :|c  J|C :)c * >t! ******* H< ***  + 

DO  40  K=NSLIPS2,NSLIPS 
DO  30  L=NSLIPS2,NSLIPS 
IF  (L.EQ.K)  THEN 
HARDM(L,K)=H2 
ELSE 

HARDM(L,K)=QB*H2 
END  IF 

30  CONTINUE 
40  CONTINUE 

Q***************************************************************************** 

DO  60  K=NSLIPS2,NSLIPS 
DO  50  L=1,NSLIPS1 
HARDM(L,K)=QAB*H2 
50  CONTINUE 
60  CONTINUE 

DO  80K=1,NSLIPS1 
DO  70  L=NSLIPS2,NSLIPS 
HARDM(L,K)=QB  A*H  1 
70  CONTINUE 
80  CONTINUE 

ELSE  IF(NTENS.EQ.6  .AND.  NSLIPS.EQ.2)THEN 

DO  100K=1,NSLIPS 

DO  90  L=1,NSLIPS 

IF  (L.EQ.K)THEN 

HARDM(L,K)=H2 

ELSE 

HARDM(L,K)=Q*H2 
END  IF 

90  CONTINUE 
100  CONTINUE 
ELSE 

DO  120K=1,NSLIPS 
DO  I10L=1,NSLIPS 
IF  (L.EQ.K)  THEN 
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HARDM(L,K)=H2 

ELSE 

HARDM(L,K)=Q*H2 
END  IF 

no  CONTINUE 
120  CONTINUE 
END  IF 

************  ******>|!!|<  ******  Hi*************** 


RETURN 

END 


SUBROUTINE  HCURVMF(TGAMMA,HARDM, HO, TAUS,TAUO,NSLIPS,Q,Hs) 


C This  subroutine  computes  the  hardening  matrix  HARDM(NSLIPS,NSLIPS) 
^***************************************************************************** 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  HARDM(MNSLIPS,MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=1 ,0D0,TWO=2.0D0,THREE=3.0D0) 
^***************************************************************************** 
C H is  hardening  rate  for  FCC  CRYSTALS 

Q »|c  )(e  )(c  :fc  * )|(  )|c  )|e  9|e  )|c  »|c  4c  4c  ^ ^ ^ >|c  sic  3|c  }(c  »(c  :|c  9|c  :)c  9|c  9|c  9)c  9|c  )fe  )|c  :|c  )fc  3)e  3^  * ^ 9|c  »|c  * >|c  * >|c 

C H=HO*((ONE/DCOSH((HO*TGAMMA)/(TAUS-TAUO)))**TWO)+10.0 

H=Hs+(HO-Hs)*((ONE/DCOSH(((HO-Hs)*TGAMMA)/(TAUS-TAUO)))**TWO) 

C Calculate  the  hardening  matrix 
DO  140K=1,NSLIPS 
DO  130L=1,NSLIPS 
IF  (L.EQ.K)  THEN 
HARDM(L,K)=H 
ELSE 

HARDM(L,K)=Q*H 
END  IF 

130  CONTINUE 
140  CONTINUE 

^4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4«4c4c4c 


RETURN 

END 


SUBROUTINE  RTENS  (BTEN,PTEN,ELASTM,RTEN,NSLIPS,NTENS,NDI) 


C Subroutine  computes  RTEN(NTENS,MNSLIPS) 

^Sic4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(4cs|c:]c:ic9)c9|c9|c3ic3ic3ic3ic:)c9|c9ic9ic){e:fc3{c3i:^:ic4c 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6,MNSLIPS=12) 

DIMENSION  BTEN(MDIM,MNSLIPS),PTEN(MDIM,MNSLIPS), 
+ELASTM(MDIM,MDIM),RTEN(MDIM,MNSLIPS) 

PARAMETER  (ZERO=O.ODO,ONE=  1 ,0D0,TWO=2.0D0,THREE=3  .ODO) 
^***************************************************************************** 
C Calculate  RTEN(6,NSLIPS) 

DO  40  K=1,NSLIPS 
DO  30  I=1,NTENS 
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RTEN(I,K)=ZERO 
30  CONTINUE 
40  CONTINUE 

DO  70  K=1,NSLIPS 
DO  60  J=1,NTENS 
DO  50  I=1,NTENS 

RTEN(J,K)=RTEN(J,K)+ELASTM(J,I)*PTEN(I,K) 
50  CONTINUE 
60  CONTINUE 
70  CONTINUE 

DO  90K=1,NSLIPS 
DO  80  I=1,NTENS 
RTEN(I,K)=RTEN(I,K)+BTEN(I,K) 

80  CONTINUE 
90  CONTINUE 


RETURN 

END 

CMMMmmffmifitmfmfmtmtHtitititimMMmtiiifiiitittiimffffmtmmmmmmmmim#### 

SUBROUTINE  ELMATRl  (EMU,EKAPPA,NTENS,NDI,NDIPL  1 ,ELASTM) 


INCLUDE  'ABA  PARAM.INC 
PARAMETER  (MDIM=6) 

DIMENSION  ELASTM(MDIM,MDIM) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

^ }{C  9|c  % :{C  3|C  :|(  :|C  9|C  J|C  :)e  )|e  :<(  9|C  9(C  )|C  >|(  9K  >|C  9K  4c  * 3ic  Sk  >fc  :)(  9^  9^  9|c  9)(  sic  sic  9|(  }|e  9fc  :((  9|(  )|C  9)C  i|C  ^ 9fc  9fe  sic  3|(  J|C  sjc  ^ ^ ^ ^ S|C  }(e  )|(  9|«  4e  >|C  9|C  9|(  ^ 9ic  :]c  9]c  9](  J)C  9|C  % 


X1=EMU 

X2=TWO*EMU 

X3=EKAPPA-X2/THREE 

^ sic  4c  4c  sic  4c  sic  s|c  4c  s|c  4c  sic  s|c  sic  sic  s|c  s|c  sic  4c  4c  s)c  s|c  sic  s|c  sic  sic  4c  4c  sic  4c  sic  sic  sic  sic  s|c  sic  s|c  s|c  s|c  4c  3|c  sic  sic  sic  S|C  S|c  sic  sic  s|c  sic  sic  sic  s|c  s|c  sic  sic  sic  sic  sic  sic  sic  sic  3|c  4c  4c  sic  sic  4c  4c  sic  sic  sic  sic  sic  4^ 

DO  20  I=1,NTENS 
DO  10  J=1,NTENS 
ELASTM(J,I)=ZERO 
10  CONTINUE 
20  CONTINUE 

^ 4e  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4e  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  s|c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  9k  4: **  4c  4c  4c  4c  * 


DO  30  1=1, NDI 
ELASTM(I,I)=X2 
30  CONTINUE 

DO  40  I=NDIPL1,NTENS 
ELASTM(I,I)=X1 
40  CONTINUE 

^4c4c4c4c4c4c4c4c4c4c4c4c4c4‘4‘4^4‘4(4(4‘4c4<4c4c4(9icsicsic4c4c4c4c4c4c4c4c4c4(4c4c4c4c4c4(4c4c4c4c4<9icsicsic4cs|csicsicsicsfc4c4cs|c3ic4csic4c4csk4csicsk4csk4c4c4cs|c4c 

DO  60  J=1,NDI 
DO  50  1=1, NDI 

ELASTM(I,J)=ELASTM(I,J)+X3 
50  CONTINUE 
60  CONTINUE 

^ * ,|c  :«  >«  »c  >K  >K  4c  >|t  >X  :|C  % M<  * * iX  :|c  >|c  !)c  >K :K  He  >K  sK  :tc  :)c  % :|c  itc  :|c  HcK  >K  :)c :« >1.  :|c  ilc  >|c  »c  He  :)c  :|C  M<  He  »c  >|c  Mc>N  >|c  SK  He  Me  Me 
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RETURN 

END 


SUBROUTINE  ELMATR2(EMU,NTENS,NDI,NDIPL  1 ,ELASTM) 


INCLUDE  ’ABA_PARAM.INC 
PARAMETER  (MDIM=6) 

DIMENSION  ELASTM(MDIM,MDIM) 

PARAMETER  (PR=.3236DO,ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 

^*****=|C***l|!**S|tl|C************>|t>|!J|!!|t****!|C!|l*Htl|<******!|<*********!|ti|t**=|t***!|tii!*!|tJ|!*******l|c* 


X 1 =(TWO*EMU*PR)/(  1 -PR) 

X2=EMU 

X3=TWO*EMU 

^!|C!|<*!t!!tt!t<**********>l«*******!t!*!|<******j|C!|t**!|C!|t*j|=***j)C>|C*!|t***lMc***!|t**l|t!|.***j|<*>|i!(;!(t>(cj(c*  + *>ti!|cj|t 


DO  20  I=1,NTENS 
DO  10  J=1,NTENS 
ELASTM(J,I)=ZERO 
10  CONTINUE 
20  CONTINUE 

^ S|CI|C  !|c  !|t  i|<  ^ :|t  H<  i|<  * * s|<  1)1  ^ Id  i|<  >|c  !|c  i|<  i|i  }|CS|I  i|E  I|I  I|I  I|C  H<  ^ iK  4:  >l<  * * i|<  % >11  >l<  ^ % 4<  4<  4<  4<  i)<  ^ !|C  4c  4:  >l<  >1:  ^ * * * * 4!  i):  >|c>|c  4: 


DO30  J=1,NDI 
DO  40  1=1, NDI 
ELASTM(I,J)=X1 
40  CONTINUE 
30  CONTINUE 
DO  50  1=1, NDI 

ELASTM(I,I)=ELASTM(I,I)+X3 
50  CONTINUE 

DO  60  I=NDIPL1,NTENS 
ELASTM(I,I)=ELASTM(I,I)+X2 
60  CONTINUE 

^ )|C  9{c  sic  3|c  3|C  ^ 9)C  sfe  4e  He  ^ % * 9|e  3|c  ]|c  ;|c  }|c  ^ )|C  t * )|c  9|c  sic  9)e  9fc  :fe  sfe  ^ ^ 9ic  4c  4c  )|C  :|c  :|c  ^ »{e  i|c  9|C  9)C  sic  J|c  }|c  % stc  ♦ 9|c 


RETURN 

END 


SUBROUTINE  ELMATR3(EMU,EKAPPA,NTENS,NDIPL1  ,ELASTM) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6) 

DIMENSION  ELASTM(MDIM,MDIM) 

PARAMETER  (ZERO=O.ODO,ONE=1 ,0D0,TWO=2.0D0,THREE=3.0D0) 

^4c4c4<4c4>4c4t4E4c4i4c4E4i4i)d4<4‘4<4<4c4<4<4c4c4c4c4c4c4<4<4<4<4<4c4c4c4‘4c4c4c4<4<4<4<4<4<4‘4>4c4c4c4c4c4<4>4c4c4c4c4>4c4:4c4c4c4c4<4<4c4c4c4c4c4c4c4c4c 


Xl=TWO*EMU 

X2=EMU 


X3=EKAPPA-X  1 /THREE 
X4=TW0*EKAPPA+X1/THREE 

^4c4c4csic4c4csicsic4c4csicsicsicsicsic4c4c4c4c4c4csic4c4c4c4c4c4c4cs{csic4c4csic4c4c4c4c4c4cs{c4csic4csic4cslc4c4c4c4c4c4c4c4c4c4c4c4csic4c4c4c4csics|c4c4c4c4cstc4csicsic4c4cs|c 


DO  20  I=1,NTENS 
DO  10  J=1,NTENS 
ELASTM(J,I)=ZERO 
10  CONTINUE 
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20  CONTINUE 

Q 4c  He  !)c  H<  >|c  !|i  i|i  s|ci|<  He  s|c  H<  H<  >tci<c  ]|<  i|<  ;|i  :|c  :|C1|C  ill  s|i  ilciK  >l<  i|<  * >l<  >l<  He  i|<  !|c  :)C  i|c  :|l  I|<:|E  l|c  Id  H<  >l<  >l<  * I|c  !|<  >l<  % >l<  * * * !i<  >|C  >|C  « :|c  * >|i  ;|c  4<  i|! 

DO  30  1=1,2 
ELASTM(I,I)=X1 
30  CONTINUE 

DO  40  I=NDIPL1,NTENS 
ELASTM(I,I)=X2 
40  CONTINUE 

^HeH‘HeH‘HeHeidHeHeHeH‘H‘HeHeHeHeHeHeHeHeHeH<HeHeHeHeHeH’HeHeH<HeH<H<H<HeHeHeHeHeHeHeHeHeHeHeHeH<H<HcH<HeHeHeHeH‘HeHeHeHeHeHeH<HcHeH<HeHeHeHeHeHeHeHeHcHeH< 

DO  60  J=l,2 
DO  50  1=1,2 

ELASTM(I,J)=ELASTM(I,J)+X3 
50  CONTINUE 
60  CONTINUE 
DO  80J=1,2 
DO  70  1=3,3 

ELASTM(I,J)=ELASTM(I,J)+X4 
70  CONTINUE 
80  CONTINUE 

^ }|c  :{c :(( 3fc  9fc  :fe  sK  9|c  9^  :|c  9|c  9|e  9^  :|e  :|e  :)e  3|e  )fc  3|c  3|c  :4c  :}e  :)c  :4c  :|e  9|c  a|e  9|e  9|c  9|e  % % 9fc  9|e  ^ :{c  3|c  3|c  3|c  9|c  9|c  3|c  3)e  :)e  :fc  :fc  3|c  3|e  3|e  3|c  4c  i|e  3i«  % 3fc  * >1^ 


RETURN 

END 


SUBROUTINE  ELMATR4(EMU,EKAPPA,NDI,NTENS,NDIPL1  ,ELASTM) 


INCLUDE  'ABA_PARAM.INC 
PARAMETER  (MDIM=6) 

DIMENSION  ELASTM(MDIM,MDIM) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 


Xl=TWO*EMU 

X2=EMU 

X3=EKAPPA-X1/THREE 

^H<H'HeHeH‘HeH‘HeHeHeH'H<HeH'HeH<HeH<HeHiHeHeHeHeHeHeHeHeHeH<H<H'H‘HeH<H‘H<HeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHeHiHeHeHeH'H'H<HeHeHeHeHeHeH!HeHeHeHe 


DO  20  I=1,NTENS 
DO  10  J=1,NTENS 
ELASTM(J,I)=ZERO 
10  CONTINUE 
20  CONTINUE 

Q He  He  He  id  >d  He  He  He  He  He  He  H<  He  He « He  He  id  He  He  H<  H<  He  He  * He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  He  id  He  He  He  He  He  He  id  He  He  He  He  He  He  He  He  He  He  He 


DO  30I=1,NDI 
ELASTM(I,I)=X1 
30  CONTINUE 

DO  40  I=NDIPL1,NTENS 
ELASTM(I,I)=X2 
40  CONTINUE 

^9|c  9)c  9|c9lc94c94c94c94c9|c9|c94c94c9|c9|c94c94c9|c:)c9|c9)c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c:4c94c94:9)c:{c:fe9fe9(c:fc9(c94:4c4c4c 


DO  60  J=1,NDI 
DO  50I=1,NDI 

ELASTM(I,J)=ELASTM(I,J)+X3 
50  CONTINUE 
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60  CONTINUE 

(^****>|C)|tH<****!|C!|<*>|<>|l******i|t***  + j|.*>|<*H<***********>l<>l<**Xc**>|C>|tiK*****,|t*!(t*>|=**********Hc**Mc 


RETURN 

END 


SUBROUTINE  CALCOORD(FELAST,CMCl  1,CMC12,CMC13,CMC21,CMC22, 
+ CMC23,CMC3 1,CMC32,CMC33,CX,CY,CZ,NTENS) 


NCLUDE  'ABA  PARAM.INC 

DIMENSION  FELAST(3, 3), FIELAT(3, 3), CX(3),CY(3),CZ(3) 
PARAMETER  (M=3) 

PARAMETER  (ZERO=O.ODO,ONE=1 .0D0,TWO=2.0D0,THREE=3.0D0) 


CALL  FINVRST  (FELAST,FIELAT,M) 

DO  101=1,3 
CX(I)=0.0 
CY(I)=0.0 
CZ(I)=0.0 
10  CONTINUE 
DO  20  1=1,3 

CX(I)=CX(I)+FELAST(I,1)*CMC11+FELAST(I,2)*CMC21+FELAST(I,3)*CMC31 

CY(I)=CY(I)+CMC12*FIELAT(I,1)+CMC22*FIELAT(I,2)+CMC32*FIELAT(I,3) 

20  CONTINUE 

Q 1|C s|c i|E :|i * :(<  4<  >l> >l<  He If: ^ ^ >l< >|i >l> >l<  H< s)c >|c * 1): ^ 4<  >l< i): !<<!)< >(< >l< >l< ><<  iK !|<  >l<  !|< >l< >l<  * 

C Normalize  direction  cosine  in  3D 

(^HsH<HeH=HeHeHeHeH<H<HeHe*H<*H‘H‘HtH<H<H«H>H<HeH<*H<H<**H=**HeHeH<HiH<H<H‘HeHeHeHe*H=H‘H<H‘H‘H‘H<H<*HeHeHeH<*H=H"H‘**H<*HeHeHeHe*HeH<H<H'H!He 

IF  (NTENS.EQ.6)THEN 

CX(  1 )=CX(  1 )/(DSQRT(CX(  1 )*CX(  1 )+CX(2)*CX(2)+CX(3)*CX(3))) 
CX(2)=CX(2)/(DSQRT(CX(1)*CX(1)+CX(2)*CX(2)+CX(3)*CX(3))) 
CX(3)=CX(3)/(DSQRT(CX(1)*CX(1)+CX(2)*CX(2)+CX(3)*CX(3))) 

CY(  1 )=CY(  1 )/(DSQRT(CY(  1 )*CY(  1 )+CY(2)*CY(2)+CY(3)*CY(3))) 
CY(2)=CY(2)/(DSQRT(CY(1)*CY(1)+CY(2)*CY(2)+CY(3)*CY(3))) 
CY(3)=CY(3)/(DSQRT(CY(1)*CY(1)+CY(2)*CY(2)+CY(3)*CY(3))) 

CZ(  1 )=CX(2)*CY(3)-CX(3)*CY(2) 

CZ(2)=CX(3)*CY(1)-CX(1)*CY(3) 

CZ(3)=CX(1)*CY(2)-CX(2)*CY(1) 

ELSE 

Q*******************************************iii**********li‘*****************it‘*il!** 

C Normalize  direction  cosine  in  2D 

^9K>k3|«>k>l‘3|<4e3|c3fe)K3fe3{e>ie9|t9|c9|t)|e9|c)|c3|c9te3|c>|e>ie9K)|c3|c3|c«4e4c*^:ic3|c3|c3|c3ic9|c:|c4e])c:4c:^9K3k3|c3|e3fe3|c3ic9|c)ie«^4c:4c3fc3ie9)c%%}|e)ic^^%%>(c:|c)K>|e^^ 

CX(  1 )=CX(  1)/(DSQRT(CX(  1 )*CX(  1 )+CX(2)*CX(2))) 

CX(2)=CX(2)/(DSQRT(CX(  1 )*CX(1  )+CX(2)*CX(2))) 

CX(3)=ZERO 

CY(  1 )=CY(  1 )/(DSQRT(CY(  1 )*CY(1  )+CY(2)*CY(2))) 

CY(2)=CY(2)/(DSQRT(CY(  1 )*CY(  1 )+CY(2)*CY(2))) 

CY(3)=ZERO 
CZ(l)=ZERO 
CZ(2)=ZERO 
CZ(3)=ONE 
END  IF 
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RETURN 

END 


SUBROUTINE  ANIELAS(C1  l,C12,C44,al,a2,a3,ELASTM,NDI) 


INCLUDE  ’ABA_PARAM.INC 
DIMENSION  ELASTM(6, 6), al(3),a2(3),a3(3) 


C Anisotropy  component  for  3D 
IF(NDI.EQ.3)THEN 

ELASTM(l,l)=(al(l)**4+al(2)**4+al(3)*M)*Cll+2*(al(2)**2*al(l)**2+al(3)**2*al(l) 

+**2+al(2)**2*al(3)**2)*C12+4*(al(l)**2*al(2)**2+al(2)**2*al(3)**2+al(l)**2* 

+ al(3)**2)*C44 
EL  ASTM(2,2)=ELASTM(  1,1) 

ELASTM(3,3)=ELASTM(  1,1) 

ELASTM(4,4)=(al(l)**2*a2(l)**2+al(2)**2*a2(2)**2+al(3)**2*a2(3)**2 

+)*Cll+2*(al(l)*a2(l)*al(2)*a2(2)+al(l)*a2(l)*al(3)*a2(3))*C12+( 

+al(l)**2*a2(2)**2+al(2)**2*a2(l)**2+al(2)*a2(l)*al(l)*a2(2)+al(l)* 

+a2(2)*al(2)*a2(l)+al(2)**2*a2(3)**2+al(3)**2*a2(2)**2+al(3)*a2(2)* 

+al(2)*a2(3)+al(2)*a2(3)*al(3)*a2(2)+al(l)**2*a2(3)**2+al(3)**2* 

+a2(l)**2+al(3)*a2(l)*al(l)*a2(3)+al(l)*a2(3)*al(3)*a2(l))*C44 

ELASTM(5,5)=ELASTM(4,4) 

ELASTM(6,6)=ELASTM(4,4) 


ELASTM(l,2)=(al(l)**2*a2(l)**2+al(2)**2*a2(2)**2+al(3)**2*a2(3)**2 

+)*Cll+(al(l)**2*a2(2)**2+al(2)**2*a2(l)**2+al(l)**2*a2(3)**2+al(3) 

+**2*a2(l)**2+al(2)**2*a2(3)**2+al(3)**2*a2(2)**2)*C12+4*(al(l)* 

+al(2)*a2(l)*a2(2)+al(2)*al(3)*a2(3)*a2(2)+al(l)*al(3)*a2(l)*a2(3)) 

+ *C44 


ELASTM(  1 ,3)=ELASTM(  1 ,2) 

ELASTM(2, 1 )=ELASTM(  1 ,2) 

ELASTM(2,3)=ELASTM(  1 ,2) 

ELASTM(3 , 1 )=ELASTM(  1 ,2) 

ELASTM(3 ,2)=ELASTM(  1 ,2) 

ELASTM(l,4)=(al(l)**3*a2(l)+al(2)**3*a2(2)+al(3)**3*a2(3))*Cll+ 

+(al(l)**2*(al(2)*a2(2)+al(3)*a2(3))+al(2)**2*(al(l)*a2(l)+al(3)* 

+a2(3))+al(3)**2*(al(l)*a2(l)+al(2)*a2(2)))*C12+2*(al(l)*al(2)* 

+(al(l)*a2(2)+al(2)*a2(l))+al(2)*al(3)*(al(2)*a2(3)+al(3)*a2(2))+ 

+ a 1 ( 1 )*a  1 (3)*(a  1 ( 1 )*a2(3)+a  1 (3)*a2(  1 )))*C44 
ELASTM(4, 1 )=ELASTM(  1 ,4) 

^9|{^^)|c:te]ic9|c9|e9|c9)c:|c9|c9|e](e^4c4ei|e:fe:tc]fc3|c%>|c:it9(c:|c:(c)|()|e:|e:|c:|c:|c:)e:t(4e:)c))e:^:|c:te^:1c9|c:|c:|c:|c)|c])e:t(:)(:t(:ie)|c9|c^c:|c^s|(9|(:)c^4c:|c3(c9ic9|c9fc9ic:(e:fci|e}|(]]^ 

ELASTM(2,4)=(a2(l)**3*al(l)+a2(2)**3*al(2)+a2(3)**3*al(3))*Cll+ 

+(a2(l)**2*(al(2)*a2(2)+al(3)*a2(3))+a2(2)**2*(al(l)*a2(l)+al(3)* 

+a2(3))+a2(3)**2*(al(l)*a2(l)+al(2)*a2(2)))*C12+2*(a2(2)*a2(l)* 

+(al(l)*a2(2)+al(2)*a2(l))+a2(2)*a2(3)*(al(2)*a2(3)+al(3)*a2(2))+ 

+a2(3)*a2(l)*(al(l)*a2(3)+al(3)*a2(l)))*C44 

ELASTM(4,2)=ELASTM(2,4) 

ELASTM(3,4)=(a3(l)**2*al(l)*a2(l)+a3(2)**2*al(2)*a2(2)+a3(3)**2 
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+*al(3)*a2(3))*Cll+(a3(l)**2*(al(2)*a2(2)+al(3)*a2(3))+a3(2)**2* 

+(al(l)*a2(l)+al(3)*a2(3))+a3(3)**2*(al(l)*a2(l)+al(2)*a2(2)))*C12 

++2*(a3(l)*a3(2)*(al(l)*a2(2)+al(2)*a2(l))+a3(2)*a3(3)*(al(2)*a2(3) 

++al(3)*a2(2))+a3(l)*a3(3)*(al(l)*a2(3)+al(3)*a2(l)))*C44 

ELASTM(4,3)=ELASTM(3,4) 

ELASTM(l,5)=(al(l)**2*a2(l)*a3(l)+al(2)**2*a2(2)*a3(2)+al(3)**2* 

+ a2(3)*a3(3))*Cll+(al(l)**2*(a2(2)*a3(2)+a2(3)*a3(3))+al(2)**2* 

+ (a2(l)*a3(l)+a2(3)*a3(3))+al(3)**2*(a2(l)*a3(l)+a2(2)*a3(2)))*C12 
+ +2*(al  ( 1 )*al  (2)*(a2(  1 )*a3(2)+a2(2)*a3(  1 ))+al  (2)*a  1 (3)*(a2(2)* 

+ a3(3)+a2(3)*a3(2))+al(l)*al(3)*(a2(l)*a3(3)+a2(3)*a3(l)))*C44 
ELASTM(5 , 1 )=ELASTM(  1 ,5) 

ELASTM(2,5)=(a2(l)**3*a3(l)+a2(2)**3*a3(2)+a2(3)**3*a3(3))*Cll+ 

+(a2(l)**2*(a2(2)*a3(2)+a2(3)*a3(3))+a2(2)**2*(a2(l)*a3(l)+a2(3)* 

+a3(3))+a2(3)**2*(a2(l)*a3(l)+a2(2)*a3(2)))*C12+2*(a2(l)*a2(2)* 

+(a2(l)*a3(2)+a2(2)*a3(l))+a2(2)*a2(3)*(a2(2)*a3(3)+a2(3)*a3(2))+ 

+a2(l)*a2(3)*(a2(l)*a3(3)+a2(3)*a3(l)))*C44 

ELASTM(5,2)=ELASTM(2,5) 

^9|(9|(4(9|c*>k9f‘%*^9tc^9(c»|c9|c:)c9|e)|c)|ci|(9)(:i(}|c9|e3|(3|c9f(t4csic:^%^9|e)|c9|c9|e)ics|e3|(^4e3|c}lc))c9|c9ie}|c}|c»|(:tc9|c9|c%^%j(e9|c9(c%j{(9fe3(c3|c4(9|cs|cs|c9(cj(c^^:Kjic3ic:4c:^ 

ELASTM(3,5)=(a3(l)**3*a2(l)+a3(2)**3*a2(2)+a3(3)**3*a2(3))*Cll  + 
+(a3(l)**2*(a2(2)*a3(2)+a2(3)*a3(3))+a3(2)**2*(a2(l)*a3(l)+a2(3)* 
+a3(3))+a3(3)**2*(a2(l)*a3(l)+a2(2)*a3(2)))*C12+2*(a3(l)*a3(2)* 
+(a2(l)*a3(2)+a2(2)*a3(l))+a3(2)*a3(3)*(a2(2)*a3(3)+a2(3)*a3(2))+ 
+a3(l)*a3(3)*(a2(l)*a3(3)+a2(3)*a3(l)))*C44 
ELASTM(5 ,3)=ELASTM(3 ,5) 

^jtc4e^9fc:l()(c)iesfc)|c9)c»(ciK)i(>K9|(:|(>|c4(9K9l(9|<3|t%9|c9ic>|(9|(4c>fc)fc:(cj|e>fc%:|c9|c:|e9|c9|c9K:fe^:fe^4c^^9ic9|c4c9|c4c9|(»ic9fc»|c)(e^^4c9(c»ie9|(:tC9|(^9fc3(c}fc9fcj|c9|e>|c^j|c)ic 

ELASTM(4,5)=(a2(l)**2*al(l)*a3(l)+a2(2)**2*al(2)*a3(2)+a2(3)**2 
+ *al(3)*a3(3))*Cll+(al(l)*a2(l)*(a2(2)*a3(2)+a2(3)*a3(3))+al(2)* 

+ a2(2)*(a2(l)*a3(l)+a2(3)*a3(3))+al(3)*a2(3)*(a2(l)*a3(l)+a2(2)* 

+ a3(2)))*C12+(al(l)*a2(2)*(a2(l)*a3(2)+a2(2)*a3(l))+al(2)*a2(l)* 

+ (a2(2)*a3(l)+a2(l)*a3(2))+al(2)*a2(3)*(a2(2)*a3(3)+a2(3)*a3(2))+ 

+ al  (3)*a2(2)*(a2(3)*a3(2)+a2(2)*a3(3))+a  1 ( 1 )*a2(3)*(a2(  1 )*a3(3)+ 

+ a2(3)*a3(l  ))+al  (3)*a2(  1 )*(a2(3)*a3(  1 )+a2(  1 )*a3(3)))*C44 
ELASTM(5,4)=ELASTM(4,5) 

ELASTM(l,6)=(al(l)**3*a3(l)+al(2)**3*a3(2)+al(3)**3*a3(3))*Cll+ 

+ (al(l)**2*(al(2)*a3(2)+al(3)*a3(3))+al(2)**2*(al(l)*a3(l)+al(3)* 

+ a3(3))+al(3)**2*(al(l)*a3(l)+al(2)*a3(2)))*C12+2*(al(l)*al(2)* 

+ (al(l)*a3(2)+al(2)*a3(l))+al(2)*al(3)*(al(2)*a3(3)+al(3)*a3(2))+ 

+ al(l)*al(3)*(al(l)*a3(3)+al(3)*a3(l)))*C44 
ELASTM(6, 1 )=ELASTM(  1 ,6) 

ELASTM(2,6)=(a2(l)**2*al(l)*a3(l)+a2(2)**2*al(2)*a3(2)+a2(3)**2 
+ *al(3)*a3(3))*Cll+(a2(l)**2*(al(2)*a3(2)+al(3)*a3(3))+a2(2)**2 
+ *(al(l)*a3(l)+al(3)*a3(3))+a2(3)**2*(al(l)*a3(l)+al(2)*a3(2)))* 

+ C12+2*(a2(l)*a2(2)*(al(l)*a3(2)+al(2)*a3(l))+a2(2)*a2(3)* 
+(al(2)*a3(3)+al(3)*a3(2))+a2(l)*a2(3)*(al(l)*a3(3)+al(3)*a3(l))) 

+ *C44 

ELASTM(6,2)=ELASTM(2,6) 
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ELASTM(3,6)=(a3(l)**3*al(l)+a3(2)**3*al(2)+a3(3)**3*al(3))*Cll+ 

+ (a3(l)**2*(al(2)*a3(2)+al(3)*a3(3))+a3(2)**2*(al(l)*a3(l)+al(3) 

+ *a3(3))+a3(3)**2*(al(l)*a3(l)+al(2)*a3(2)))*C12+2*(a3(l)*a3(2)* 

+ (al(l)*a3(2)+al(2)*a3(l))+a3(2)*a3(3)*(al(2)*a3(3)+al(3)*a3(2)) 

+ +a3(l)*a3(3)*(al(l)*a3(3)+al(3)*a3(l)))*C44 
ELASTM(6,3)=ELASTM(3,6) 

^****!|e**H"*  ******************  **♦*♦*♦*  ***********  *****!|c**J|t>|t*****!|c!|t**!|t*j|cj|e*******!|< 

ELASTM(4,6)=(al(l)**2*a2(l)*a3(l)+al(2)**2*a2(2)*a3(2)+al(3)**2* 

+ a2(3)*a3(3))*Cll+(al(l)*a2(l)*(al(2)*a3(2)+al(3)*a3(3))+al(2)* 

+ a2(2)*(al(l)*a3(l)+al(3)*a3(3))+al(3)*a2(3)*(al(l)*a3(l)+al(2)* 

+ a3(2)))*C12+(al(l)*a2(2)*(al(l)*a3(2)+al(2)*a3(l))+al(2)*a2(l)* 

+ (al(2)*a3(3)+al(3)*a3(2))+al(2)*a2(3)*(al(l)*a3(3)+al(3)*a3(l)) 

+ +al(3)*a2(2)*(al(3)*a3(2)+al(2)*a3(3))+al(l)*a2(3)*(al(l)*a3(3) 

+ +al(3)*a3(l))+al(3)*a2(l)*(al(3)*a3(l)+al(l)*a3(3)))*C44 
ELASTM(6,4)=ELASTM(4,6) 

^**************************************************************^^:|,;|,;|,^^^:|,^^^,^^^ 
ELASTM(5,6)=(a3(l)**2*a2(l)*al(l)+a3(2)**2*al(2)*a2(2)+a3(3)**2 
+ *a2(3)*al(3))*Cll+(a2(l)*a3(l)*(al(2)*a3(2)+al(3)*a3(3))+a3(2) 

+ *a2(2)*(al(l)*a3(l)+al(3)*a3(3))+a3(3)*a2(3)* 

+ (al(l)*a3(l)+al(2)*a3(2)))*C12+(a2(l)*a3(2)*(al(l)*a3(2)+al(2)* 

+ a3(l))+a2(2)*a3(l)*(al(2)*a3(3)+al(3)*a3(2))+a2(2)*a3(3)*(al(l) 

+ *a3(3)+al(3)*a3(l))+a2(3)*a3(2)*(al(3)*a3(2)+al(2)*a3(3))+a2(l)* 

+ a3(3)*(al(l)*a3(3)+al(3)*a3(l))+a2(3)*a3(l)*(al(3)*a3(l)+ 

+ al(l)*a3(3)))*C44 
ELASTM(6,5)=ELASTM(5,6) 

^ 3}e  :4c  3|e  :)c  :4c  9|c  :(e  )|c  9|c  ^ 9|e  3|c  4c  % 4c  t )|c  4c  >|t  3|(  :fc  ^ 3fc  9|c  1 1 3|e  % :)c  3|c  )|c  9|e  9|e  3|e  % 9|e  :4c  3{c  3(c « }|e  9|e  :{c  :4c  )|e  9|e  »|c  ^ ^ :)c  % 3(c  3^  * * % % >|e  % 

ELSE 

^4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4( 

C Anisotropy  component  for  plane  stress 

^4c4c4c4(4c4(4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c 

ELASTM(  1 , 1 )=(a  1 ( 1 )*  *4+a  1 (2)*  *4+a  1 (3)*  *4)*C  1 1 +2*(a  1 (2)*  *2*a  1 ( 1 )*  *2+ 

+al(3)**2*al(l)**2+al(2)**2*al(3)**2)*C12+4*(al(l)**2*al(2)**2+ 

+al(2)**2*al(3)**2+al(l)**2*al(3)**2)*C44 

^ 4c  4c  4e  4c  4c  * 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4«  4c  4c  4c  4c  4c  4c  4«  4c  4«  4«  4c  4c  4c  4c  4c  * 4c  * 4c  4c  4«  4c  4c  4c  4c  4«  4«  4c  4c  4c  4c  4<  4<  4c  4«  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4«  4c  4c  4c  4«  4c 

ELASTM(2,2)=ELASTM(  1,1) 

^***************************************************************************** 

ELASTM(3,3)=(al(l)**2*a2(l)**2+al(2)**2*a2(2)**2+al(3)**2*a2(3)**2 

+)*Cll+2*(al(l)*a2(l)*al(2)*a2(2)+al(l)*a2(l)*al(3)*a2(3))*C12+( 

+al(l)**2*a2(2)**2+al(2)**2*a2(l)**2+al(2)*a2(l)*al(l)*a2(2)+al(l)* 

+a2(2)*al(2)*a2(l)+al(2)**2*a2(3)**2+al(3)**2*a2(2)**2+al(3)*a2(2)* 

+al(2)*a2(3)+al(2)*a2(3)*al(3)*a2(2)+al(l)**2*a2(3)**2+al(3)**2* 

+a2(l)**2+al(3)*a2(l)*al(l)*a2(3)+al(l)*a2(3)*al(3)*a2(l))*C44 

^4c4c4c4c4c4c4c4e4e4e4e4c4c4c4e4c4c4c4c4c4e4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4<4c4c4c4c4c 

ELASTM(l,2)=(al(l)**2*a2(l)**2+al(2)**2*a2(2)**2+al(3)**2*a2(3)**2 

+)*Cll+(al(l)**2*a2(2)**2+al(2)**2*a2(l)**2+al(l)**2*a2(3)**2+al(3) 

+**2*a2(l)**2+al(2)**2*a2(3)**2+al(3)**2*a2(2)**2)*C12+4*(al(l)* 

+al(2)*a2(l)*a2(2)+al(2)*al(3)*a2(3)*a2(2)+al(l)*al(3)*a2(l)*a2(3)) 

+ *C44 

^****** ********************************************************** ************* 
EL  ASTM(2, 1 )=EL  ASTM(  1,2) 

^4e4c4c4c4c4c4c4c4c4e4c4c4c4e4c4c4e4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c 
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ELASTM(l,3)=(al(l)**3*a2(l)+al(2)**3*a2(2)+al(3)**3*a2(3))*Cll+ 

+(al(l)**2*(al(2)*a2(2)+al(3)*a2(3))+al(2)**2*(al(l)*a2(l)+al(3)* 

+a2(3))+al(3)**2*(al(l)*a2(l)+al(2)*a2(2)))*C12+2*(al(l)*al(2)* 

+(al(l)*a2(2)+al(2)*a2(l))+al(2)*al(3)*(al(2)*a2(3)+al(3)*a2(2))+ 

+ al(l)*al(3)*(al(l)*a2(3)+al(3)*a2(l)))*C44 

^9|c9)c:4e9|c%9|c]|c^%a|eaie]j(4e:|c9|e9|c:(e:|e]|(9|(]|e9|e9|c](c:fcs|c:fc9|(4c:fe4c:|e:)c:)c9ie:{(:ft^jie9fc:)c9|e:)(:lc:ic:fc9ic:|c:le)ie9fe:{(jfc)|c%^:)c:tc:(e))(:)c^:fc:fc:{ci|c^:)c:)(:i(:{c:fe:{::t(^^( 

ELASTM(3 , 1 )=ELASTM(  1 ,3) 

END  IF 

RETURN 

END 


SUBROUTINE  FINVRST  (A,Y,N) 


INCLUDE  ’ABA_PARAM.INC’ 

^ i|c  :|C1|C  !|c  :|c  :|c  :|c Hi  i|<  If  :)CI|C  i|c  :)c  :|i  Id  i|E  « I|C  i)i  :|t  >|i  i|<  !|<  i|(  >l<  ;|C  :|C1|C  >|c  :(<  « lie*  4<  >l"i<  * « >11  4<  >l<  >l<  >l<  Ik  >)■  4<  * * * IK  * 4:  ’ll  * >l<  * * * 

PARAMETER  (MNSLIPS=I2) 

DIMENSION  A(MNSLIPS,MNSLIPS),Y(MNSLIPS,MNSLIPS) 

INTEGER  INDX(MNSLIPS) 

^idi|ci|ti|!i|ti|ji|!i|ii|c*i|ii|c>|ii|c**>|t>|i>l'>|i>d=l‘>l'>d>l>>d>l‘>d>l‘>l‘>d>l‘>d=t>*>tc=(>>t‘>l>>l'=l‘>l‘=l‘>l‘>l‘>l‘>('>t'>l'>l'>l'=l‘>l"l‘=l‘>l'=l<=l<=t”l‘=l<=t>>l<>dsds|c>|i*>d>|!>d>d>d>|c>l<>l<>d 


DO  12  1=1, N 
DO  11  J=1,N 
Y(I,J)=0.0D0 

1 1 CONTINUE 
Y(I,I)=1.0D0 

12  CONTINUE 

CALL  LUDCMP(A,N,INDX,D) 

DO  13  J=1,N 

CALL  LUDKSB(A,N,INDX,Y(1,J)) 

13  CONTINUE 


RETURN 

END 


SUBROUTINE  LUDCMP(A,N,INDX,D) 


INCLUDE  'ABA_PARAM.INC 

^9)ca|c3|c3tca|(4e:|esfc}|c:|(:{c%^9|c)|c9|e^9|c)|c9|c)ic)|c:((}|(9|c9|(9|c9|(s|t:|c%^»ic9|c9|c:|(:|ej|(9fc9)c9)c])e3|e:^9lc^3|c9|c9|c9|c3|c3|C9|(^9ic^^)((9|c:^^)|c:(c;)c9i(»|(^H(’|(^^^^^^’K^ 

PARAMETER  (MNSLIPS=12,NMAX=500,TINY=1  .OD-20) 

Q * * * )d  >d  >d  >d  >d  >d  >t>  >d  >d  >d  >d  >d  >d  >d  * >d  Id  >d  >d>d>t>  >d  >d  >d  >d  >d  >d  Id  >d  >d  >d  >d  >d  * >d  >(c  =d  >|c  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >(>  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d  >d 

DIMENSION  A(MNSLIPS,MNSLIPS),INDX(MNSLIPS),W(NMAX) 

^4eid>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d>d:d>d>d>d>d>d>d>d>d:d>d>d>d>did>d>d>d>did:d>d>d>d>d>d>d>d>d>d>didid>d>d>d>d 

D=1.0 

DO  12  1=1, N 
AAMAX=0.0D0 
DO  11  J=1,N 

IF(DABS(A(I,J)).GT.AAMAX)THEN 

AAMAX=DABS(A(I,J)) 

END  IF 

11  CONTINUE 

IF(AAMAX.EQ.0.0D0)THEN 
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PRINT  *,  'singular  matrix  in  LUDCMP' 

STOP 

END  IF 

W(I)=1.0D0/AAMAX 

12  CONTINUE 
DO  19  J=1,N 

DO 

SUM=A(I,J) 

DO  13K=1,I-1 
SUM=SUM-A(I,K)*A(K,J) 

13  CONTINUE 
A(I,J)=SUM 

14  CONTINUE 
AAMAX=0.0 
DO  16I=J,N 

SUM=A(I,J) 

DO  15K=U-1 
SUM=SUM-A(I,K)*A(K,J) 

15  CONTINUE 
A(I,J)=SUM 

DUM=W(I)*DABS(SUM) 

IF(DUM.GE.AAMAX)THEN 

IMAX=I 

AAMAX=DUM 

ENDIF 

16  CONTINUE 
IF(J.NE.IMAX)THEN 
DO  17K=1,N 
DUM=A(MAX,K) 
A(IMAX,K)=A(J,K) 

A(J,K)=DUM 

17  CONTINUE 
D=-D 

W(IMAX)=W(J) 

ENDIF 

INDX(J)=IMAX 

IF(A(J,J).EQ.0.0D0)THEN 

A(J,J)=TINY 

ENDIF 

IF(J.NE.N)THEN 

DUM=1.0D0/A(J,J) 

DO  18I=J+1,N 
A(I,J)=A(I,J)*DUM 

18  CONTINUE 
ENDIF 

19  CONTINUE 

RETURN 

END 


SUBROUTINE  LUDKSB(A,N,INDX,B) 


184 


INCLUDE  'ABA  PARAM.INC 

^4c9|c:|e9|c:4c:|c:4c^:fc3(e:f(9ic9iejfc:|c9|(:f(9|c:|e:|c9|c:|(:fc:ic}|c9fc)ie3(e^^:)c:}c^^:(e:|c:1c9|(:(c:|c3)t:|(:te^:)(:)c9|c)|c9(c3|c3|c9|(9|(^3|c3fc9|e)(c9|c^s|c:|c»|c:fe:1(}!(^:]c:)(9lc3|c:)c3)c9^ 

PARAMETER  (MNSLIPS=12) 

DIMENSION  A(MNSLIPS,MNSLIPS),B(MNSLIPS),INDX(MNSLIPS) 

^ :|i  i|t  :|i  :|i  i|i  :|e  :|i  :|e  4c  :|c  Hi  4c  He  :4c  i|i  3)1 1)1  :|c  ;|c  :|I  Id  s|ci|citi  :|c  :|ci|ci|c  * Hi  i|<  4<  * !(:  >l<  :!<  I):  !|i  4<  >)<  H<  s|<  if:  >i<  * :<>  s)c  * >l<  % »c  >l<  4<  >l<  >l>  !|<  4:  >|c  >|c  ^ * i):  * * * * 

11=0 

DO  12  1=1, N 
LL=INDX(I) 

SUM=B(LL) 

B(LL)=B(I) 

IF(II.NE.0)THEN 
DO  11  J=II,I-1 
SUM=SUM-A(I,J)*B(J) 

1 1 CONTINUE 

ELSE  IF(SUM.NE.0.0D0)THEN 
II=I 
ENDIF 
B(I)=SUM 

12  CONTINUE 
DO  14I=N,1,-1 

SUM=B(I) 

DO  13  J=I+1,N 
SUM=SUM-A(I,J)*B(J) 

13  CONTINUE 
B(I)=SUM/A(I,I) 

14  CONTINUE 

RETURN 

END 
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